Hallo,

mein Makro soll mir die Möglichkeit bieten, dass ich eine .csv-Datei auswählen und dann importieren kann. Soweit geschieht dies, jedoch wird mir stetig die Fehlermeldung

"Laufzeitfehler '1004': Der eingegebene Name für ein Blatt oder Diagramm ist ungültig. Stellen Sie folgendes sicher: - der eigegebene Name weist maximal 31 Zeichen auf - der Name enthält keines der folgenden Zeichen: : \ / ? * [ oder ] - es wurde ein Namen eingegeben."

Die Antwort mag trivial sein, aber ich bin neu in diesem Bereich, also seht es mir nach.

Sub DateinImport()

Dim Zielmappe As Object
Dim Quellen As Object
Dim Pfad As String
Dim Datei As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Zielmappe = ActiveWorkbook

Datei = Application.GetOpenFilename("Exceldateien öffnen(*.csv*),*.csv*", , "Gewünschte Datei auswählen")
Workbooks.Open (Datei), Local:=True

Do While Datei <> ""

Set Quellen = Workbooks.Open(Pfad & Datei, False, True)
Quellen.Sheets().Copy after:=Zielmappe.Sheets(Zielmappe.Sheets.Count)

Zielmappe.Sheets(Zielmappe.Sheets.Count).Name = Datei

Quellen.Close

Datei = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Dateien erfolgreich importiert"

Set Zielmappe = Nothing
Set Quellen = Nothing


End Sub