Schleifenproblem-If-then-else-end if
09.07.2003 11:39:59
Andy
habe folgendes Problem. Ich habe ein Userform gebaut dass verschiedene Listen enthält. Beim verlassen des Userforms sollen aus zwei Listen zwanghaft eine Auswahl getroffen werden. Diese Auswahl öffnet dann zwei Excel-Dokumente.
Ich habe es folgendermaßen selbst versucht:
Public
Sub Transfer()
begin:
MyFile1 = CSVtransfer.Templates.Text
If MyFile1 <> "" Then
Workbooks.Open MyPath & "\DataSheet\" & MyFile1
Else
MsgBox "Bitte wählen Sie ein Temlate aus"
GoTo begin
End Sub
Schlauerweise habe ich mir da eine endlosschleife gabaut. Wenn ich nun das "GOTO Begin" spare läuft das Makro weiter und zwingt den Benutzer nicht ein Scheet auszuwählen. Im Endeffekt macht dann die ganze Prozedur keinen Sinn. Gibt es eine Möglichkeit das Makro zu stoppen, den Benutzer zur Auswahl zu zwingen und dann wieder von vorne beginnen zu lassen?
Viele Grüße und danke für jeden Vorschlag
Andy