VBA Arbeitsblätter zusammen fassen
27.09.2022 21:36:05
Stefanie
ich Versuche gerade mir die Anwendung mit VBAs näher zu bringen. Stecke aber noch in den Kinderschuhen. Und ich brauche Mal jemanden, der sich mein VBA Code ansieht. Ich habe irgendwie ein "Brett" vor dem Kopf.
Ich habe in meiner Excel Datei 4 Arbeitsblätter, die ich zusammen fassen möchte. Und bei der Zusammenfassung möchte ich die Zeilen und Spalten tauschen.
Dazu habe ich folgenden Code zusammen geschrieben.
Sub Tabelle_zusammenfassen()
Dim i As Integer
Dim Zusammenfassung As Worksheet
Dim BereichZielTab As Object
Dim rwl As Object
Set Zusammenfassung = Worksheets("Zusammenfassung")
For i = 2 To Worksheets.Count
Set BereichZielTab = Worksheets(i).UsedRange
Set rwl = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)
BereichZielTab.Copy
rwl.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next i
End Sub
Er nimmt ja jetzt von der Spalte A die nächste freie Zeile. Habe ich ihm ja auch so angegeben.
Dadurch, dass ich in meinen Ausgangstabellen eine unterschiedliche Spaltenanzahl habe,
müsste er mir aber nicht von Spalte A die letzte Zeile raus suchen, sondern von Spalte XY.
Und Einfügen soll er die Daten vom nächsten Tabellenblatt aber ab Spalte A.
So das ich die Stunden der Mitarbeiter untereinander stehen habe.
Ich hoffe ihr versteht, was ich meine ☺️.
Hier die Beispieldatei:
https://www.herber.de/bbs/user/155407.xlsx
Gruß Stefanie