AW: 2 Bestimmte Blätter in einem Blatt zusammenführen
28.10.2019 23:27:52
Piet
Hallo
hier ein Makro Code zum testen, und VBA lernen. Würde mich freuen wenn du ihn verstehst, und er einwandfrei klappt. Bei Range("A2:XX" must du noch selbst die 2. Spalte angeben, aus der kopiert werden soll. Sollte die 1. Spalte nicht A sein bitte aendern. Bei .Row + 1 kannst du auch 2 oder 3 angeben, wenn zwischen den kpierten Blöcken 1-2 Leerzeilen sein sollen. Probier es selbst aus.
mfg Piet
Sub Tabellen_anfügen()
Dim lzT1, lzT2, lzAw As Long
'LastZell in Tabelle 9+10 in Spalte A suchen
lzT1 = Worksheets("Iabelle9").Cells(Rows.Count, 1).End(xlUp).Row
lzT2 = Worksheets("Iabelle10").Cells(Rows.Count, 1).End(xlUp).Row
'Tabelle1 Bereich kopieren, in Auswertung einfügen
Worksheets("Iabelle9").Range("A2:XX" & lzT1).Copy
Worksheets("Auswertung").Range("A5").PasteSpecial xlPasteAll 'oder xlPasteValues
'LastZell +1/2 in Tabelle Auswertung Spalte A suchen
'** +2 falls du 1 Leerzeile zwischen den Tabellen haben willst!
lzAw = Worksheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Row + 1 'oder 2/3 (Leerzeilen)
'Tabelle2 Bereich kopieren, in Auswertung einfügen
Worksheets("Iabelle9").Range("A2:XX" & lzT1).Copy
Worksheets("Auswertung").Range("A" & lzAw).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub