VBA: Nach shell-Aufruf weiter im Code

Question

Wieder mal ein Problem, wo ich Hilfe benötige:

Hier mein Code-Ausschnitt:

' PDF-Datei ins Webspace versenden
Dim iBox As String
iBox = MsgBox("Soll die PDF-Datei gleich ins WEB versendet werden?", vbYesNo + vbQuestion, "PDF-VERSAND")
If iBox = vbYes Then
Shell ("U:\BAT\FILFTP.EXE @U:\BAT\GE_S-FTP.cfg")
Else

' abspeichern als Vorlage und beenden
Dim sBook As Workbook
ActiveWorkbook.SaveAs Filename:="U:\GROSSER\Preislisten\Monacor_last-pdfconvert.xls", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
For Each sBook In Workbooks
If (sBook.Name <> ActiveWorkbook.Name) And (sBook.Name <> ThisWorkbook.Name) Then
sBook.Close savechanges:=False
End If
Next sBook

End If

Wenn der Shell-Aufruf mit NEIN aufgerufen wird läuft der Code weiter.
Wenn mit JA aufgerufen, dann wird das externe Programm ausgeführt und bleibt dann stehen. Es soll aber nach/beim Ausführen des externen Programms auch den Code nach "else" weiter ausführen.

Wie geht das. Bitte um Hilfe.
Gruß Mario

Answer 1

hi mario :-)

mache es in der art :-))

gruss nighty

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "C:\windows\notepad.exe", 1

Answer 2

Danke nighty,

aber der Code wird nach dem Shell-Aufruf auch nicht weiter ausgeführt.

Answer 3

hi mario :-)

bei mir unter excel 2000 wird der code fortgesetzt

ich mach mir nochmal gedanken darueber, vielleicht koennen ja andere member auch noch egaenzen :-)

gruss nighty

Answer 4

Ja im Normalfall wird er auch fortgesetzt. Aber unter den Bedingungen der MsgBox-Abfrage wie oben im Code????

Answer 5

hi mario :-)

vielleicht liegt es auch an deiner merkwuerdigen verschachtelung,die so nicht gestattet ist

deine erste if abfrage endet in der letzten for nextschleife ,statt ausserhalb :-)))

gruss nighty

Answer 6

War eigentlich ganz einfach:

Das else durch ein End If ersetzen und das letzte End If raus...

Trotzdem vielen DAnk