Tabellenblätter Vereinigen

Inhalt

✓ 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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren