AW: Mappe offen und alle Tabellenblätter kopieren
02.02.2009 11:22:10
Oberschlumpf
Moin Leon
Schreib dieses Makro in ein allgemeines Modul und teste es:
Sub sbTabsCopy()
Dim lstrFile As String, lshTabs As Worksheet, lstrSplit() As String
lstrFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If lstrFile = "Falsch" Then Exit Sub
Application.ScreenUpdating = False
Workbooks.Open lstrFile
lstrSplit = Split(lstrFile, "\")
For Each lshTabs In Workbooks(lstrSplit(UBound(lstrSplit))).Sheets
lshTabs.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
Workbooks(lstrSplit(UBound(lstrSplit))).Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Zuerst öffnet sich der Datei-Öffnen-Dialog und du wählst eine Datei aus.
Nach dem Öffnen der Datei werden alle Tabellenblätter kopiert und und so in die Datei mit dem Makro eingefügt, dass sie sich am Ende aller Tabellenblätter befinden.
Hilfts?
Ciao
Thorsten