Aufgezeichnetes Makro funktioniert nicht
27.10.2014 07:27:34
Muehli
Guten Morgen,
ich habe eine Frage:
Folgendes Makro wurde per Makro-Rekorder aufgezeichnet:
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=(LEFT(MID(R[-1]C[-4],1+FIND(""#"",SUBSTITUTE(R[-1]C[-4],"" "",""#"",LEN(R[-1]C[-4])- _
LEN(SUBSTITUTE(R[-1]C[-4],"" "","""")))),9^9),FIND(""."",MID(R[-1]C[-4],1+FIND(""#"",SUBSTITUTE(R[-1]C[-4],"" "",""#"",LEN(R[-1]C[-4])-LEN(SUBSTITUTE(R[-1]C[-4],"" "","""")))),9^9))-1)*8)+MID(MID(R[-1]C[-4],1+FIND(""#"",SUBSTITUTE(R[-1]C[-4],"" "",""#"",LEN(R[-1]C[-4])-LEN(SUBSTITUT" & _
"[-4],"" "","""")))),9^9),1+FIND(""."",MID(R[-1]C[-4],1+FIND(""#"",SUBSTITUTE(R[-1]C[-4] _
,"" "",""#"",LEN(R[-1]C[-4])-LEN(SUBSTITUTE(R[-1]C[-4],"" "","""")))),9^9)),9^9)"
Range("G3").Select
Selection.AutoFill Destination:=Range("G3:G1264"), Type:=xlFillDefault
Range("G3:G1264").Select
Wenn ich es nun per Button aufrufe, kommt der Fehler: "Anwendungs- oder objektdefinierter Fehler"Weiss jemand warum dieser Fehler auftritt?
Freundliche Grüße
Muehli