Wenn ich dieses Makro aus der aktiven Arbeitsmappe starte funktioniert es einwandfrei.Code eingefügt mit Syntaxhighlighter 1.13
Rufe ich das Makro aber aus einer anderen Proc. auf bekomme ich Laufzeitfehler
1004 Anwendungs oder Objekt definierter Fehler.
Kann mir bitte jemand erklären warum dieses Makro nicht funktioniert wenn man es aus
einem anderen heraus aufruft.Sub fill()
Sheets("K00736").Activate
Range("A2").FormulaR1C1 = "=MID(RC[2],1,4)" '
'' diese Zeile wird angemeckert und bringt Laufzeitfehler 1004
Range("B2").FormulaR1C1 = "=MID(RC[1],5,2)"
Range("E2").FormulaR1C1 = "=CONCATENATE(MID(RC[-1],1,1),""."",MID(RC[-1],2,5),""."",MID(RC[-1],7,2),""."",MID(RC[-1],9,2),""."",MID(RC[-1],11,2),""."",MID(RC[-1],13,3),""."",MID(RC[-1],16,1))"
Range("A2:B2").Select
Selection.autofill Destination:=Range("A2:B598"), Type:=xlFillDefault
Range("A2:B598").Select
ActiveWindow.SmallScroll Down:=-69
Range("E2").Select
Selection.autofill Destination:=Range("E2:E598"), Type:=xlFillDefault
End Sub
Gerhard