ich habe ein Problem mit der Prüfung, ob Dateien geöffnet sind. Dies benötige ich in Workbook_Open.
Bereits den ganzen Tage suche ich nach einem Ergebnis leider ohne Erfolg.
Ich bitte euch mir zu helfen.
Ich habe folgende Abfrage erstellt:
1. Prüfung ob Werte in Zellen vorhanden:
If wsH.Range("Z2") > "" And wsH.Range("Z3") > "" Then
MsgBox "Wert Z2 und Wert Z3 vorhanden"
elseif wsH.Range("Z2") = "" And wsH.Range("Z3") = "" Then
MsgBox "Wert Z2 und Wert Z3 nicht vorhanden"
elseif wsH.Range("Z2") > "" And wsH.Range("Z3") = "" Then
MsgBox "Wert Z2 vorhanden und Wert Z3 nicht vorhanden"
elseif wsH.Range("Z2") = "" And wsH.Range("Z3") > "" Then
MsgBox "Wert Z2 nicht vorhanden und Wert Z3 vorhanden"
End if
Nun soll oben eingefügt werden:
1. If
Prüfung ob Datei Z2 geöffnet und ob Datei Z3 geöffnet
2. elseif
Prüfung ob Datei Z2 nicht geöffnet und ob Datei Z3 nicht geöffnet
3. elseif
Prüfung ob Datei Z2 geöffnet und ob Datei Z3 nicht geöffnet
4. elseif
Prüfung ob Datei Z2 nicht geöffnet und ob Datei Z3 geöffnet
Ich hoffe ich habe mein Problem verständlich dargelegt.
Besten Dank fur eure Hilfe.
Gruss
Peter