Ich habe eine Codezeile:
ActiveCell.FormulaR1C1 = "=WENN(ISTFEHLER(SVERWEIS(B2;'Alle Aktive EQ 5 RB Mitte.XLSX'!$A:$A;1;FALSCH));""inaktiv"";""aktiv"""
im Code:
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=WENN(ISTFEHLER(SVERWEIS(B2;'Alle Aktive EQ 5 RB Mitte.XLSX'!$A:$A;1;FALSCH));""inaktiv"";""aktiv"""
Selection.AutoFill Destination:=Range("A2:A" & loLetzte), Type:=xlFillDefault
Mit ActiveCell.FormulaR1C1 habe ich bereits öfter Formeln in eine Zelle geschrieben und dann heruntergezogen.
loLetzte wird im vorhergehenden Code definiert
Jetzt bekomme ich einen Fehlercode: laufzeitfehler 1004 anwendungs- oder objektdefinierter fehler
Ich habe keine Ahnung warum.
Der String der in die Zelle geschrieben werden soll, sollte von VBA nicht geprüft werden.
Also, wo liegt der Fehler?
|