ich bin gespannt auf eine Lösung, ich probier schon so lang rum, aber ich kommt nicht drauf, drum bitte ich um Eure Hilfe:
- in der personl.xls steht ein Makro, das aus verschiedenen Dateien aufgerufen werden soll, zum Einlesen von Informationen zur aufrufenden Datei:
Sub Dateinamen_Pfad_auslesen()
Dim myPath As String
Dim myName As String
Dim myNameOEnd As String
Dim myNameWithPath As String
'Pfad der aufrufenden Mappe:
myPath = ActiveWorkbook.Path & "\"
'Name der aufrufenden Mappe ohne Pfad :
myName = ActiveWorkbook.Name
'Name der aufrufenden Mappe ohne Endung :
myNameOEnd = Replace(myName, Right(myName, 4), "")
'Dateiname mit Pfad:
myNameWithPath = myPath & myName
End Sub
- in der aufrufenden Datei sollen diese Informationen dann zur Verfügung stehen:
Sub test
Application.Run ("personl.xls!Dateinamen_Pfad_auslesen")
MsgBox myPath
End Sub
Wo und wie muss ich die Variablen deklarieren, damit das funktioniert? In der aufrufenden Datei, aber wie? Kommen die Deklarationen an die "Application.Run"-Anweisung dran? Aber wie? So wie oben geht's auf jeden Fall nicht....
Für Eure Hilfe schonmal danke im Voraus und Grüße
Franz