If Then Else funktioniert nicht
01.09.2004 13:14:02
Andy
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