Favorites

Tabellenblätter Vereinigen

März 16, 2021

Tabellenblätter zusammenführen

✓ Range ohne Header finden (mit Offset- und Resize-Eigenschaft)
✓ Tabellenblätter in einer For-Each Schleife überspringen (mit dem „And“-Vergleichsoperator)
✓ Tabellenblätter Ansprechen (Codename)
✓ Variablen und Datentypen
✓ If-Anweisung
✓ Code schrittweise mit F8 ausführen
✓ UsedRange-Eigenschaft
✓ Direktbereich
✓ Zell-Methoden: Kopieren (Copy) und Einfügen (PasteSpecial)
✓ Erste freie Zelle / letzte befüllte Zelle finden mit End(XlUp)
✓ Makro einem Button zuweisen

Code

Sub Tabellenblaetter_Vereinigen() 
 
Dim Sh As Worksheet 
 
'Schleife über alle Tabellenblätter 
For Each Sh In Worksheets 
 
    'Bestimmte Tabellenblätter überspringen 
    If Sh.Name <> "Master" Then 
     
        'Daten kopieren und einfügen 
        Sh.UsedRange.Offset(1).Resize(Sh.UsedRange.Rows.Count - 1).Copy 
        Master.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial 
     
 
    End If 
Next Sh 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub