Einfügen einer Formel bis zum Spaltenende
03.11.2004 03:11:48
Paul
ich hab mal wieder ein Problem mit den letzten Spalten. Folgendes:
Ich habe ein Macro geschreiben welches eine Formel(Art ist völlig egal) bis zur letzten Spalte einfügen soll.
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(1,""-"",RC[2]:R[9998]C[2],""-"",RC[3]:R[9998]C[3],""-"", _
RC[4]:R[9998]C[4],""-"",RC[5]:R[9998]C[5],""-"",RC[6]:R[9998]C[6])"
Selection.AutoFill Destination:=Range("G2:G6151"), Type:=xlFillDefault
Range("G2:G6151").Select
wenn ich nun mit der Methode End(xlDown) versuche zu arbeiten um das letzte Feld von der Spalte G festzustellen bekomme ich immer die Fehlermeldung:
Run Time Error 1004: AutoFill method of Range class failed.
der Code dazu sieht so aus:
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(1,""-"",RC[2]:R[9998]C[2],""-"",RC[3]:R[9998]C[3],""-"", _
RC[4]:R[9998]C[4],""-"",RC[5]:R[9998]C[5],""-"",RC[6]:R[9998]C[6])"
Selection.AutoFill Destination:=Range("G2").End(xlDown), Type:=xlFillDefault
Range("G2").End(xlDown).Select
Kann mir nun einer von Euch verraten wie ich die Methode End(xlDown) richtig in AutoFill einbinden kann?
Danke im voraus
Gruß
Paul