Dateiname ohne Endung

Computer: Software & Programmierung Office Software
1

Ich habe eine Datei als Vorlage mit dem Dateinamen:
FAGSI_Mietpreiskalkulation_Stand_04_2009_Container und Verbindungsmaterial.xlt
Dort sind einige Formeln im VBA hinterlegt. Ich möchte nun das einige Aktion abhängig vom Dateinamen ausgeführt werden, deshalb hab ich eine Formel geschrieben, wo sich den Dateinamen anschaut, aber es kommt immer Laufeitfehler 5: Ungültige Prozeduren …
Hier mal ein Beispiel dafür:
Private Sub Worksheet_Activate()
If Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, „material“, 1) - 1) = „FAGSI_Mietpreiskalkulation_Stand_04_2009_Container und Verbindungs“ Then
MsgBox „Juhu“
End If
End Sub

Das Dinge soll halt nur ausgeführt werden, wenn der Dateiname, der der Vorlage ist.
Ist bestimmt bloß ein Deklarationsfehler oder so.
Danke schonmal

2

Ich habe eine Datei als Vorlage mit dem Dateinamen:
FAGSI_Mietpreiskalkulation_Stand_04_2009_Container und
Verbindungsmaterial.xlt
Dort sind einige Formeln im VBA hinterlegt. Ich möchte nun das
einige Aktion abhängig vom Dateinamen ausgeführt werden,

Hallo Ramon,

Private Sub Worksheet\_Activate()
If InStr(ThisWorkbook.Name, "FAGSI\_Mietpreiskalkulation\_Stand\_04\_2009\_Container und Verbindungs") Then
 MsgBox "Juhu"
End If
End Sub

Gruß
Reinhard