Inhalt mehrerer Excel Dateien kopieren
21.02.2022 22:27:27
before
ich möchte mit Hilfe von VBA den Inhalt von mehreren Excel Dateien untereinander in ein Excel Sheet kopieren.
Ich habe etwas recherchiert und einen VBA Code gefunden der etwas ähnliches leistet.
Nachfolgend mein aktueller Stand:
Sub Uebertragen()
Dim strDateiname As String
Dim strVerzeichnis As String
strVerzeichnis = GetFolder & ""
If strVerzeichnis "" Then
Application.ScreenUpdating = False
strDateiname = Dir(strVerzeichnis & "" & "\*.xlsx") ' ""
Workbooks.Open Filename:=strVerzeichnis & "\" & strDateiname
ActiveWorkbook.Worksheets(1).Copy _
ThisWorkbook.Worksheets("Tabelle1")
Workbooks(strDateiname).Close False
strDateiname = Dir
Loop
Application.ScreenUpdating = True
End If
End Sub
Function GetFolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "C:" 'Mir wäre schon sehr geholfen wenn die Dateien nacheinander in ein Sheet kopiert werden und dies überschrieben wird.
Dafür zu sorgen dass sie dann untereinander kopiert werden, sollte ich hinbekommen.
Vielleicht hat ja von euch jemand eine Idee wie man das am besten löst.
Vielen Dank