Hallo zusammen,
ich habe ein Problem.
Ich bin gerade dabei ein Makro zu basteln, dass Zeilen aus einer Datei in eine andere Datei übernimmt. Da ich nicht allzu bewandert im Programmieren bin, mache ich das hauptsächlich über die Makro-aufzeichnen-Funktion. Ich möchte dabei eine beliebige Anzahl von Zeilen in einem anderen Dokument einfügen. Die beliebige Anzahl kommt daher, dass sich die Zeilenanzahl vor jeder neuen Benutzung des Makros ändert. Deswegen habe ich in der anderen Datei auch nur eine Leerzeile, in der die Zielen eingefügt werden sollen.
Im besten Fall fügt er die Zeilen ein und verschiebt alles andere (die Zellen nach der leeren Zeile) die entsprechende Zeilenzahl nach unten. Gibt es eine Möglichkeit das so zu programmieren, sodass das Makro auch bei einer wechselnden Anzahl von kopierten Zellen immer funktioniert (d.h. dass genau die Zeilenanzahl eingefügt wird, die auch kopiert wurde ohne dass diese Größe genau definiert wird)?
Der Code bis jetzt:
Columns("A:B").Select
Range("A5").Activate
Selection.Delete Shift:=xlToLeft
Columns("K:K").Select
Range("K5").Activate
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Range("E5").Activate
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("leere Vorlage MAKRO.xlsx").Activate
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
|