Makro i word
Jeg har et mærkeligt VBA-problem - synes jeg selv. Med hjælp fra en ekspert her fra siden, har jeg fået lavet en makro til word. Det hele virker fint på min computer, men når en af mine kolleger bruger dokumentet på sin computer, så går word ned. Der er helt samme software på de 2 maskiner, så jeg synes det er meget mærkeligt. På den anden computer kommer der følgende fejlmeddelelse:Compile error -> Expected End Sub
Makroen er her:
Dim ræk As Integer, kol As Integer
Public Sub A_MAP()
Tables(1).Cell(2, 1).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 1
End Sub
Public Sub B_MAP()
Tables(1).Cell(2, 2).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 2
End Sub
Public Sub C_MAP()
Tables(1).Cell(2, 3).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 3
End Sub
Public Sub D_MAP()
Tables(1).Cell(2, 4).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 4
End Sub
Public Sub E_MAP()
Tables(1).Cell(2, 5).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 5
End Sub
Public Sub F_MAP()
Tables(1).Cell(2, 6).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 6
End Sub
Public Sub G_MAP()
Tables(1).Cell(2, 7).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 7
End Sub
Public Sub H_MAP()
Tables(1).Cell(2, 8).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 8
End Sub
Public Sub I_MAP()
Tables(1).Cell(2, 9).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 9
End Sub
Public Sub J_MAP()
Tables(1).Cell(2, 10).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldMap 10
End Sub
Public Sub A_udfyld()
Tables(2).Rows(2).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 1
End Sub
Public Sub B_udfyld()
Tables(2).Rows(3).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 2
End Sub
Public Sub C_udfyld()
Tables(2).Rows(4).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 3
End Sub
Public Sub D_udfyld()
Tables(2).Rows(5).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 4
End Sub
Public Sub E_udfyld()
Tables(2).Rows(6).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 5
End Sub
Public Sub F_udfyld()
Tables(2).Rows(7).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 6
End Sub
Public Sub G_udfyld()
Tables(2).Rows(8).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 7
End Sub
Public Sub H_udfyld()
Tables(2).Rows(9).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 8
End Sub
Public Sub I_udfyld()
Tables(2).Rows(10).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow
udfyldBM 9
End Sub
Private Sub udfyldBM(Nr)
Bookmarks("bm1").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) + 0.000001, 1), "#0.0")
Bookmarks("bm2").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) + 0.000001, 1), "#0.0")
Bookmarks("bm3").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 3) + 0.000001, 1), "#0.0")
Bookmarks("bm4").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) / 2 + 0.000001, 1), "#0.0")
Bookmarks("bm5").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 3) / 2 + 0.000001, 1), "#0.0")
Bookmarks("bm6").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1), "#0.0")
Bookmarks("bm7").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 3) / 3 + 0.000001, 1), "#0.0")
Bookmarks("bm8").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1), "#0.0")
Bookmarks("bm9").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 3) / 3 + 0.000001, 1), "#0.0")
Bookmarks("bm10").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 3) + 0.000001, 1), "#0.0")
Bookmarks("bm11").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) / 3 + 0.000001, 1), "#0.0")
Bookmarks("bm12").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) + 0.000001, 1), "#0.0")
Bookmarks("bm13").Select
Selection.TypeText Text:=Format(Round(klargørIndhold(Nr + 1, 2) + 0.000001, 1), "#0.0")
End Sub
Private Sub udfyldMap(Nr)
Bookmarks("bm14").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm15").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Selection.TypeText Text:="-"
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 5
Bookmarks("bm16").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 10
Bookmarks("bm17").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 10
Bookmarks("bm18").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 5
Bookmarks("bm19").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Selection.TypeText Text:="-"
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 5
Bookmarks("bm20").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Selection.TypeText Text:="-"
Selection.TypeText Text:=klargørIndholdMap(2, Nr) + 5
Bookmarks("bm21").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm22").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm23").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm24").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm25").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm26").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm27").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
Bookmarks("bm28").Select
Selection.TypeText Text:=klargørIndholdMap(2, Nr) - 5
End Sub
Private Function klargørIndholdMap(ræk, kol)
Dim tekst1, tekst2
tekst1 = Tables(1).Cell(ræk, kol)
tekst2 = Left(tekst1, Len(tekst1) - 2)
klargørIndholdMap = tekst2
End Function
Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
tekst1 = Tables(2).Cell(ræk, kol)
tekst2 = Left(tekst1, Len(tekst1) - 2)
klargørIndhold = tekst2
End Function
Jeg kan ikke lige se at jeg skulle mangle nogen "End Sub". Nogen der kan hjælpe?
