AUTOFILL auf anderen Tabellenblatt ausführen
28.07.2015 09:37:09
Kai
ich möchte auf einem anderen Tabellenblatt ("Tool") eine AutoFill Funktion ausführen.
Anders gesagt, in die Zelle P2 soll eine Formel geschrieben werden und die wollte ich dann bis zum Ende meiner Daten per VBA nach unten ziehen.
Das einfügen der Formel funktioniert noch, aber das herunter ziehen der Formel klappt nicht. Es kommt die Meldung :Laufzeitfehler 1004, Autofill konnte nicht ausgführt werden.
Was mach ich denn falsch ? Oder gibt es eine bessere Lösung ?
Danke
Sub Strasse_holen()
Dim letztezeile As String
'Letzte Zeile ermitteln
letztezeile = Worksheets("Tool").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Tool").Range("P2") = "=VLOOKUP(RC[-1],POP!R2C[-14]:R100C[-11],4)"
Worksheets("Tool").Range("P2:P2").AutoFill Destination:=Range("P2:P"&letztezeile), Type:= _
xlFillDefault
End Sub
Anzeige