Run Macro mit Textbausteinen...
10.03.2020 19:54:09
Bernd
ich hänge gerade an folgendem "Problemchen..."
Ein Makro mit dem Befehl, das ein Makro in einer anderen Datei gestartet werden soll läuft mit dem Befehl
.Run ("'C:\Pfadname\Dateiname.xlsm'!StartInput") problemlos.
ACHTUNG - Man beachte die '-Zeichen im Run-Befehl - ich glaube, dass da mein Problem liegt...
Will ich nun den Befehl ersetzen durch
.Run (Pfad & Makroname), wobei Pfad und Makronaem Textstrings sind,
bekomme ich einen Laufzeitfehler '1004' ?
Die Namen Pfad und Makro habe ich vorab so definiert...
Pfad = wkb1.Sheets("tabelle1").Cells(7, 2) - in der Celle 7,2 steht der Pfad als Text, also hier im Beispiel C:\Pfadname\
und der Makroname ist definiert mit folgender Kombination
Makroname = "'" & Dateiname & "'" & "!StartInput"
Ich glaube, das Problem liegt an den " ' " Zeichen in der Befehlkette von Run. ICh komme aber nicht auf die Lösung, obwohl ich schon gefühlt alle Varianten von Strin-Kombinationen ausprobiert habe...
Hoffe, mir kann jemand weiterhelfen - dürfte für einen Excel-Crack nicht allzuschwierig sein...
BG
Bernd