Office: And Vergleichsproblem

In folgender Zeile habe ich das Problem, das das "AND" nicht funktioniert
in der ersten Funktion wird geprüft ob der Ordner existiert in der Zweiten ob die Datei existiert beide geben True oder False zurück, wenn aber der Pfad existiert die Datei aber nicht überspringt er die Dateieingabe aus welchen Gründen auch immer (für mich nicht nachvollziehbar warum).

Code:

Dim TrueOrFalse1 As Boolean, TrueOrFalse2 As Boolean

TrueOrFalse1 = FolderExists(Pfadwcl)
TrueOrFalse2 = FileExists(Pfad & Dateiwcl)
If TrueOrFalse1 = False And TrueOrFalse2 = False Then
MsgBox ("Bitte Datei WCL_neu.xls")
  Datei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xls),*.xls,strNamedateien (*.txt),*.txt,Add-In-Dateien (*.xla),*.xla")
Else
End If


'Existiert ein Verzeichnis?
Function FolderExists(Folder As String) As Boolean
   On Error Resume Next
   FolderExists = False
   FolderExists = Dir(Folder, vbDirectory) <> ""
End Function
'Existiert eine Datei?
Function FileExists(File As String) As Boolean
   On Error Resume Next
   FileExists = False
   FileExists = Dir(File) <> ""
End Function

Könnte man diese If then and else eigentlich auch als select case schreiben?? Ich bekomme es derzeit nicht hin, dort die Abfrage zweier Werte einzubauen, wie in diesem Fall...

-----

OK habe es gefunden.... Denkfehler - die richtige IF Anweisung muß heissen if not.....

Wenn mir aber trotzdem noch jemand am Bsp. erklären könnte wie man das mit select case umsetzen könnte....??

THX

 

Hallo,

in diesem Fall gibt es ohnehin nur 1 Bedingung (log.Ausdruck), der entweder wahr oder falsch sein kann. Dafür ist die IF-Anweisung optimal.

Eine SELECT-CASE-Anweisung verwendet man, wenn eine Variable/Ausdruck mehrere Werte annehmen kann, denen dann eine je spezifische Anweisung(sfolge) zugeordnet werden kann, zB.:

Code:

SELECT CASE NumAusdruck
  CASE 10,20: Anweisung(sblock)1
  CASE 30 TO 50
     Anweisung(sblock)2
  CASE IS >60: Anweisung(sblock)3
  CASE ELSE
     Anweisung(sblock)4
END SELECT

Falls der NumAusdruck die Werte 10 bzw. 20 annimmt, wird Anweisung(sblock)1 ausgeführt,
falls der NumAusdruck im Bereich 30-50 liegt, wird Anweisung(sblock)2 ausgeführt,
falls der NumAusdruck größer 60 ist, wird der Anweisung(sblock)3 ausgeführt,
falls der NumAusdruck unter keinen der vorigen Werte fällt, wird Anweisung(sblock)4 ausgeführt.

Eine Anmerkung zur Schreibweise: In BASIC gilt prinzipiell die Zeilenorientierheit bei der Schreibung von Anweisung. Mehrere Einzelanweisungen können durch Doppelpunkte getrennt in derselben Zeile eingegeben werden (Vorsicht jedoch beim einzeiligen IF-Statement!).
Anfang der 1990-er Jahre wurden die Anweisungen um die sogenannten strukturierten Anweisungen erweitert (als Imitation anderer strukturierter Programmiersprachen): dieser neue Typus von Anweisungen ist zwar mehrzeilig, aber keineswegs ist man frei von der Zeilenorientierung der einzelnen Komponenten einer solchen Anweisung.
Das ist insbesondere auch bei der SELECT-CASE-Anweisung zu beachten:
Das SELECT-CASE... und ebenso das END-SELECT gehören in eine neue Zeile, auch jedes CASE... gehört in eine eigene Zeile, die case-bezogenen Anweisungen gehören entweder auch in neue Zeilen oder aber man gibt nach dem CASE-Ausdruck einen Doppelpunkt ein gefolgt von der Anweisung. Die Anweisung, die zu CASE ELSE gehört, ist auf jeden Fall in eine neue Zeile einzugeben.

Ich habe Dir die häufigsten Varianten dieser Anweisung beispielhaft dargestellt. Details sind in der VBA-Hilfe von Excel enthalten.