|
Hallo Zusammen,
Ich brauche eure Hilfe bezüglich eines Problems.
Ich habe ein Excel Sheet mit 5 Worksheets:
Januar / Februar / März / Allgemeine Informationen / Export
Mit einem Makro sollen die drei ersten Tabellen (fixe Spaltenanzahl und variable Zeilenanzahl) in das Worksheet Export kopiert werden. Also Januar, Februar und März in das neue Feld Export.
Schwierig ist es, da die Tabellen immer nahtlos an die nächste rankopiert werden sollen (Tabellen sind immer variabel).
Hinzu kommt, dass die ersten und letzen Daten nicht zu den wichtigen Zeilen gehört. Ich habe das Problem damit gelöst, dass zwischen der letzen wichtigen Zeile und der nachkommenden eine Leerzeile liegt. Somit ist es einfacher die wichtigen von den unwichtigen Daten zu trennen.
Ich habe bis jetzt folgenden Code, der aber noch bei weitem unvollständig ist, oder sogar unpassend für mein Problem!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Sub test()
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
For i = 1 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A2:" & strLC)
Bereich.copy
Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Insert Shift:=xlDown
End With
Next i
Application.CutCopyMode = False
End Sub
|
Vielen Dank für die Bemühungen.
Liebe Grüsse
|