in einem alten Beitrag habe ich hier eine interessante Mitteilung gefunden und dementsprechend versucht mittels "Dim dlg As FileDialog" zu arbeiten. Leider bekomme ich hier immer beim Kompilieren die Fehlermeldung "Benutzerdefinierter Typ nicht definiert".
Wer kann mir hier helfen? HAbe so gut wie keine Ahnung von VBA...
Gruss,
Martin
Sub Tabelle_Importieren()
Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogOpen) 'Datei wählen
With dlg
.AllowMultiSelect = True 'der User darf mehrere Dateien auswählen
.InitialFileName = "*.xls"
.InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs
.Title = "Tabelle importieren" 'Titel halt
End With
If dlg.Show = True Then
Frage = MsgBox("Sollen die Dateien nach Import gelöscht werden?", vbYesNo)
For Each si In dlg.SelectedItems 'jede ausgewählte Datei wird bearbeitet
Workbooks.Open Filename:=si
For Each TB In Sheets 'jedes Tabellenblatt der Datei wird importiert
TB.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
Workbooks(Dir(si)).Close savechanges = False
If Frage = vbYes Then Kill si
Next
End If
End Sub