Dateiname auslesen, als String speichern und als Platzhalter verwenden

[Loeffelblock]

Hallo,

ich würde gern ein allgemeines Makro schreiben. Dazu muss ich den Namen der Datei auslesen
und dann in weiterer Programmierung als Platzhalter einsetzen.
Bekomme da immer Probleme. Hat mir wer eine Lösung?

Code:

Dim Dateiname As String, Blatt As String
               
       Dateiname = ActiveWorkbook.Name
       Blatt = ActiveWorkbook.ActiveSheet.Name

Workbooks(Dateiname).Activate

Freundliche Anfängergrüße :)

Habe auch schon seit ner Stunde gesucht und nichts passendes gefunden.

[BoskoBiati]

Hi,

was passt an Deinem Code nicht?

[Loeffelblock]

Oh, danke

ich war jedesmal in der falschen Datei unterwegs wenn ich auf play gedrückt habe.
Mir wurde der falsche Dateiname gespeichert und dann hatte ich jedesmal einen Laufzeitfehler.

Soll ich das Thema für andere trotzdem stehen lassen?