Herbers Excel/VBA-Archiv

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

If Then Else funktioniert nicht

• If Then Else funktioniert nicht von Andy vom 01.09.2004 13:14:02
• AW: If Then Else funktioniert nicht - von Ulf am 01.09.2004 13:18:00
• AW: If Then Else funktioniert nicht - von Reinhard am 01.09.2004 13:19:24
• Danke - von Andy am 01.09.2004 13:29:35

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