ThisWorkbook.Name
16.02.2005 17:31:45
WilhelmR.
ich versuche mit folgendem Code zu erreichen dass ein makro nur ausgeführt wird, wenn die Datei den passenden Namen hat:
Private Sub Workbook_Open()
If ThisWorkbook.Name = "Bogen 02.2005.xls" Then
"Tue irgendwas"
Else
Exit Sub
End If
End Sub
Problem: Wenn ich den Dateinamen so angebe: "Bogen02.2005.xls" dann läuft das Ding. Mache ich nach Bogen einen Zwischenraum "Bogen 02.2005.xls" dann geht das Teil über Exit Sub einfach raus.
Natürlich passe ich den dateinamen jeweils richtig an.
Lief auch schon mit ActiveWorkbook.Name nicht, also daran liegt es nicht.
Auch über eine msgBox bekomme ich den Namen richtig mit Zwischenraum angezeigt.
Habe nur noch wenig Haare zum Ausraufen, bin aber nahe dabei.
Wilhem