Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AUTOFILL auf anderen Tabellenblatt ausführen

AUTOFILL auf anderen Tabellenblatt ausführen
28.07.2015 09:37:09
Kai
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AUTOFILL auf anderen Tabellenblatt ausführen
28.07.2015 09:44:22
Rudi
Hallo,
Oder gibt es eine bessere Lösung ?
ja, ohne AutoFill zu arbeiten.
Worksheets("Tool").Range("P2:P" & letzteZeile).FormulaR1C1 = "=VLOOKUP(RC[-1],POP!R2C[-14]:R100C[-11],4)"
Gruß
Rudi

Danke, perfekt, funktioniert owT
28.07.2015 10:46:49
Kai
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige