Hallo liebe Mitglieder,

ich sitze hier vor einem Problem und sehe vermutlich den Wald vor lauter Bäumen nicht ... und deshalb brauche ich eure Hilfe.

Das von mir erstellte Makro funktioniert zwar, allerdings möchte ich hier anstatt des hart codierten Verzeichnispfades eine Variable mit dem Verzeichnis verwenden, die zuvor entsprechend bestückt wurde. Hier soll die Variable eingefügt werden:

ActiveWorkbook.Queries.Add Name:="2 (2)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""C:\Users\RainerPfister\Documents\ABC_Setup\_TBA run\2.csv""),[Delimiter="","", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.Csv])," & Chr(13) & "" & Chr(10) & " #""Höher gestufte Header"" = Table.PromoteHeaders(Quelle, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(#""Höher gestufte Header"",{{""Phas" & _
"e"", type text}, {""Task ID"", type text}, {""Task Title"", type text}, {""Priority"", Int64.Type}, {""Description"", type text}, {""Completion Status"", type text}, {""Tags"", type text}, {""Problem ID"", type text}, {""Problem Title"", type text}, {""Risk Rating"", Int64.Type}, {""Business Unit"", type text}, {""Application"", type text}, {""Project"", type text}," & _
" {""Project Attributes"", type text}, {""Issue Tracker Tickets"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""2 (2)"";Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [2 (2)]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "_2__2"
.Refresh BackgroundQuery:=False
End With

Lese ich den aktuellen Pfad aus und versuche irgendwie meine Variable in den fett markierten Bereich zu kopieren, wird diese nicht als Variable erkannt. Ich habe mit den Anführungszeichen gespielt, "&" Zeichen verwendet, etc. ... ohne Erfolg.

Kann mir jemand sagen, wie ich die Variable mit dem ausgelesenen Verzeichnis hier implementieren kann?

Vielen Dank im Voraus für eure Hilfe.

Rainer :-)