folgendes Makro soll bestimmte Zellen automatisch mit einem bestimmten Wert befüllen. Dabei soll der 1. Wert bei der Spalte L14 stehen und soll runter bis zur xLetztenZeile. Nun das geht ja mit dem Code eigentlich ganz einfach:
Workbooks("xxxxxxxxxx.xlsm").Worksheets("DataImport").Range("L14").Select
Selection.AutoFill Destination:=Range("L14:L" & xLetzteZeile + 10),
Type:=xlFillDefault
Aber leider will der das nicht tun. Zu dem Ablauf. es kommen in ein Tabellenblatt "DataImport" 2 externe Tabellen rein. Die eine xxxx.xlsx beinhaltet x Zeilen. Diese werden kopiert und eingefügt. An der Stelle wo die letzte Zeile der eingefügten Datei ist, kommt dann der erste Datensatz der zweiten Datei rein. Sprich xLetzteZeile + 1. Die letzte Zeile bestimme ich in der ersten externen Ausleitungsdatei. Genauso mache ich das auch mit AutoFill. Die letzte Zeile der externen Ausleitungsdatei soll auch beim DataImport die LetzteZeile sein, bis der dann die Zeilen befüllt werden. Ich hoffe ich habe es ausreichend erklären können.
Ich bedanke mich im voraus.
MfG