Inhalt von mehreren Tabellen in unterschiedlichen Datei als Tabellen in einer Mappe einfügen

Question

Ich möchte mehrere einzelne Mappen als einzelne Tabellen in einer Mappe angezeigt bekommen. Wie könnte so ein Makro ausschauen.

Herzliche Grüße
Erwin

Answer 1

Hallo Erwin,

leider reicht meine Zeit heute nur für diese eine Antwort.

Das folgende Makro lässt dich Dateien auswählen und kopiert von dort jeweils das erste Tabellenblatt in die Mappe wo das Makro liegt.

Sub Blatt1Kopieren()

dateiauswahl = Application.GetOpenFilename(Filefilter:="Excel Dateien (*.xls*), *.xls*", MultiSelect:=True)

If TypeName(dateiauswahl) = "Boolean" Then Exit Sub
'Stop
For datei = 1 To UBound(dateiauswahl)
Set dt = Workbooks.Open(dateiauswahl(datei), 0)
'Stop
dt.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
dt.Saved = True
dt.Close
Next datei

End Sub

Gruß Mr. K.

Answer 2

hi all ^^

ein Beispiel

gruss nighty

Sub DateienLesen()
Call EventsOff
Dim DateiName As String, Meldung As String
DateiName = Dir("D:\Temp\" & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName And SheetExists("" & Mid(DateiName, 1, 8)) = False Then
Workbooks.Open Filename:="D:\Temp\" & DateiName
Workbooks(DateiName).Worksheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Mid(DateiName, 1, InStr(1, DateiName, ".", 1) - 1)
Workbooks(DateiName).Close
Else
Meldung = MsgBox("Ein Worksheet mit dem Namen " & Mid(DateiName, 1, 8) & " gibt es schon")
End If
DateiName = Dir
Loop
Call EventsOn
End Sub

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function

Answer 3

Hallo nighty,

danke für den Code, damit konnte mir schon ein klein wenig bei meinem Problem geholfen werden, ich hoffe so geht es auch fuessel! :-)

Könntest du den vielleicht bitte mal über mein Problemchen drüberschauen, wär klasse wenn du da auch so eine gute Idee per VBA-Code drauf hättest?! Würde mich irrsinnig freuen!

https://supportnet.de/t/2474325

Schöne Grüße

Roman