Hallo zusammen,

ich haben diesen Code, damit lade ich eine Datei von CSV rein und anschließend speichere ich die Daten in Eingabe.

Wenn ich diesen Code nochmal laufen lasse kommt eine Fehlermeldung:
Eine Abfrage mit diesem Namen 30.10.2025 ist bereits vorhanden.

Alle Daten sind täglich mit dem Datum in den Ordner mit Datum über CSV abgespeichert.

Jetzt meine zwei Fragen.
Warum kommt diese Fehlmeldung?
Kann ich über Input ein Datum eingeben und dann würde die Datei aus dem Ordner laden?

Ich hoffe ihr könnt mir helfen.
Danke an Alle und einen schönen Sonntag :-)


Sub Makro2()
'
' Makro2 Makro
'

'
ActiveWorkbook.Queries.Add Name:="30 10 2025", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""M:\Heimat\L\Listen\Auswertung\30.10.2025.csv""),[Delimiter="";"", Columns=30, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(Quelle,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""" & _
"Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}, {""Column12"", type text}, {""Column13"", type text}, {""Column14"", type text}, {""Column15"", type text}, {""Column16"", type text}, {""Column17"", type text}, {""Column18"", type text}" & _
", {""Column19"", type text}, {""Column20"", type text}, {""Column21"", type text}, {""Column22"", type text}, {""Column23"", type text}, {""Column24"", type text}, {""Column25"", type text}, {""Column26"", type text}, {""Column27"", type text}, {""Column28"", type text}, {""Column29"", type text}, {""Column30"", type text}})," & Chr(13) & "" & Chr(10) & " #""Entfernte oberste Zeilen"" = Tab" & _
"le.Skip(#""Geänderter Typ"",3)," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ1"" = Table.TransformColumnTypes(#""Entfernte oberste Zeilen"",{{""Column1"", Int64.Type}, {""Column6"", Int64.Type}, {""Column3"", type datetime}, {""Column4"", type datetime}, {""Column5"", type datetime}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ1"""
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""30 10 2025"";Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [30 10 2025]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "_30_10_2025"
.Refresh BackgroundQuery:=False
End With
Columns("A:AD").Select
Selection.Copy
Sheets("Eingabe").Select
Columns("A:A").Select
ActiveSheet.Paste
Sheets("30 10 2025").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub