Codeprobleme bei Personalmakro
13.11.2018 08:25:44
Andreas
leider habe ich wieder ein Problem was ich nicht lösen kann, da ich es nicht verstehe. Vielleicht könnt ihr mir wieder mal helfen.
Problem:
Mit unten stehendem Makro lese ich aus einem String (z.B. "Januar 2018 bis Oktober 2018") den letzten Monat + Jahreszahl aus. Diese wird in Tabelle1 in Zelle A1 kopiert. Das funktioniert alles im Makro innerhalb der Arbeitsmappe. Jedoch habe ich das Makro jetzt in der Personal.xlsb gespeichert und hier funktioniert es nicht.
Der String wird richtig ausgelesen. Er wird aber nicht in Tabelle1 sichtbar eingefügt. Woran könnte das liegen? Es laufen noch andere Makros, die ohne Probleme.
Sub Monat_einfuegen()
Dim MySplit, x&, strg$
Worksheets("Auswertung Kostenstellen").Activate
MySplit = Split(Cells(2, 1), " ")
For x = 0 To UBound(MySplit)
If x > 2 Then strg = strg & " " & MySplit(x)
Next
'MsgBox strg
Worksheets("Tabelle1").Activate
Debug.Print Trim(strg)
With Tabelle1.Cells(1, 1)
.NumberFormat = "@"
.Value = Trim(strg)
End With
End Sub
Danke euch vorab.
Gruß
Andreas