Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datepfad <> "X"

Forumthread: Datepfad <> "X"

Datepfad <> "X"
12.01.2004 21:40:23
Jonathan
Hey,
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datepfad <> "X"
13.01.2004 01:02:25
chris b
Probiers mal so.
If Activeworkbook.name = "A.xls" or Activeworkbook.name ="B.xls" then
else
end if
AW: Datepfad <> "X"
13.01.2004 19:58:58
Jonathan
sag ich doch, warum so viel arbeit machen?!
Dank Dir!!
Jonathan
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige