AW: mehrere Excel-Dateien Zusammenfügen
03.09.2015 03:59:49
fcs
Hallo Dimiti,
hier ein passendes Makro
Gruß
Franz
Public Sub Tabelle_1_holen()
'1. Tabellenblatt aus mehreren Arbeitsmappen in die aktive Mappe kopieren
Dim strDatnam As Variant
Dim wb As Workbook, wbZiel As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim j As Integer
Dim Anzahl As Long
Set wbZiel = ActiveWorkbook
strDatnam = Application.GetOpenFilename("Datei (*.xls*),*.xls*", False, _
"Bitte gewünschte Datei(en) markieren ", False, True)
If Not IsArray(strDatnam) Then Exit Sub
Set wbZiel = ActiveWorkbook
Application.ScreenUpdating = False
For i = LBound(strDatnam) To UBound(strDatnam)
Set wb = Workbooks.Open(strDatnam(i), ReadOnly:=True)
Set ws = wb.Worksheets(1)
With wbZiel
ws.Copy After:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
End With
wb.Close savechanges:=False
Next
Application.ScreenUpdating = True
Set ws = Nothing
Set wb = Nothing: Set wbZiel = Nothing
End Sub