Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

If Then Else funktioniert nicht

Betrifft: If Then Else funktioniert nicht von: Andy
Geschrieben am: 01.09.2004 13:14:02

Hallo Helfer!

Ich hab in einem Code folgende IF THEN ELSE Anweisung. Wenn If zutrifft soll die MsgBox erscheinen und das Sub beendet werden. Trifft IF nicht zu (also Else) soll der Code fortgesetzt werden.
Der Code funktionierte gut bis ich das "Exit Sub" für die THEN Anweisung eingefügt habe. Wie muss man den Code ändern, damit es funktioniert?

If Dir(sPath & sFile) <> "" Then MsgBox "Es existiert bereits eine Datei " & Chr(10) & sPath & sFile _
& Chr(10) & "Bitte überprüfen Sie Ihre Grunddaten !!"
Exit Sub
Else:
Sheets("Ergebnis").Select
Sheets("Ergebnis").Copy
...
End If

Danke
Andy

  


Betrifft: AW: If Then Else funktioniert nicht von: Ulf
Geschrieben am: 01.09.2004 13:18:00

If Dir(sPath & sFile) <> "" Then
MsgBox "Es existiert bereits eine Datei " & Chr(10) & sPath & sFile _
& Chr(10) & "Bitte überprüfen Sie Ihre Grunddaten !!"
Exit Sub
Else
Sheets("Ergebnis").Select
Sheets("Ergebnis").Copy
End If

Ulf


  


Betrifft: AW: If Then Else funktioniert nicht von: Reinhard
Geschrieben am: 01.09.2004 13:19:24

Hi Andy,
If Dir(sPath & sFile) <> "" Then 
    MsgBox "Es existiert bereits eine Datei " & Chr(10) & sPath & sFile _
    & Chr(10) & "Bitte überprüfen Sie Ihre Grunddaten !!"
    Exit Sub
Else:
    Sheets("Ergebnis").Select
    Sheets("Ergebnis").Copy
End If

Gruß
Reinhard


  


Betrifft: Danke von: Andy
Geschrieben am: 01.09.2004 13:29:35

Danke euch beiden!

Andy