Thema Datum  Von Nutzer Rating
Antwort
Rot Combinieren von meheren xls Files zu einer
16.08.2022 14:59:09 Clago
NotSolved

Ansicht des Beitrags:
Von:
Clago
Datum:
16.08.2022 14:59:09
Views:
244
Rating: Antwort:
  Ja
Thema:
Combinieren von meheren xls Files zu einer

Hallo,

Ich versuche vergebens einen code zu schreiben welcher mir aus mehreren Excel files alle Blätter in ein master dokument kopiert.

Leider bleibe ich immer an folgendem Pukt hängen:

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Mein code bis dato ist folgender:

Sub GetSheets()
Dim Path As String
Dim Filename As String
Dim Sheet As Worksheet

Application.ScreenUpdating = False

Path = "H:\Listes\"
Filename = Dir(Path & "*.xlsx")

Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
        Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop

Application.ScreenUpdating = True
End Sub
    

Ich würde mich über eure Hilfe sehr freuen

Danke

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Combinieren von meheren xls Files zu einer
16.08.2022 14:59:09 Clago
NotSolved