Datepfad <> "X"
12.01.2004 21:40:23
Jonathan
ich habe folgenden Code geschrieben:
Sub dateigeöffnetdurch()
datei = ThisWorkbook.Name
If datei = "Monate Mitarbeiter A 04.xls" Then
If Sheets("sonstiges").Range("F9") = 1 Then
geöffnetdurch.Show
Application.Wait (Now + TimeValue("0:00:06"))
geöffnetdurch.Hide
ThisWorkbook.Saved = False
ThisWorkbook.Close
Else
If datei = "Monate Mitarbeiter B 04.xls" Then
If Sheets("sonstiges").Range("F9") = 1 Then
geöffnetdurch.Show
Application.Wait (Now + TimeValue("0:00:06"))
geöffnetdurch.Hide
ThisWorkbook.Saved = False
ThisWorkbook.Close
Else
..... usw.....
ich weiß, dieser ansatz ist voll fürn A****, aber ich weiß nicht wie ich es sonst machen sollte.......
Was ich will:
Es soll geprüft werden, ob Dateiname = A oder B oder C und Zelle F9 = 1 dann soll das Makro ausgeführt werden, ansonsten soll es abgebrochen werden.
einfach mit
if datei = "A.xls" or datei = "A.xls" and ....
klappts nicht.....
Habt ihr eine idee?
Jonathan