Dateien Zusammenführen

Inhalt

✓ Tabellenblätter der ausgewählten Excel-Dateien mit einem Knopfdruck in einer Excel-Datei zusammenführen
✓ Tabellenblatt in eine neue Arbeitsmappe kopieren
✓ ScreenUpdating kurzzeitig deaktivieren
✓ Lokalfenster
✓ Benutzeroberfläche designen und Makro einem Button zuweisen
✓ Benutzer eine oder mehrere Dateien auswählen lassen
✓ Arrays
✓ If-Anweisung
✓ For-Next Schleife
✓ For-Each SChleife
✓ Variablen und Datentypen ✓ Arbeitsmappen öffnen und schließen

 

Code

Sub Dateien_zusammenfuehren() 
 
'Führt alle Tabellenblätter der ausgewählten Excel-Dateien in dieser Arbeitsmappe zusammen 
 
Dim wbQuelle As Workbook 
Dim sh As Worksheet 
Dim arrdateien As Variant 
Dim cntDatei As Long 
 
'Screenupdating deaktivieren 
Application.ScreenUpdating = False 
 
'Benutzer Dateien auswählen lassen 
arrdateien = Application.GetOpenFilename(filefilter:="Excel-Dateien (*.xls*),*.xls*", MultiSelect:=True) 
 
'Wurde mindestens eine Datei ausgewählt? 
If IsArray(arrdateien) Then 
    'Schleife über alle ausgewählten Dateien 
    For cntDatei = 1 To UBound(arrdateien) 
     
        'Aktuelle Arbeitsmappe öffnen 
        Set wbQuelle = Workbooks.Open(Filename:=arrdateien(cntDatei), UpdateLinks:=False, ReadOnly:=True) 
         
        'Schleife über alle Tabellenblätter 
        For Each sh In wbQuelle.Worksheets 
            'Aktuelles Tabellenblatt kopieren 
            sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 
        Next sh 
         
        'Aktuelle Arbeitsmappe schließen 
        wbQuelle.Close savechanges:=False 
         
    Next cntDatei 
End If 
 
'Screenupdating aktivieren 
Application.ScreenUpdating = True 
 
'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