ON ERROR funktioniert nur 1x
11.04.2005 09:05:47
Thomas
ich habe in meiner Userform folgendes stehen:
Private Sub CommandButton1_Click()
20
Err.Clear
On Error GoTo 20
Mldg = "Welchen Namen soll das Projekt bekommen?"
dername = InputBox(Mldg, "Namen des Projektes:")
ActiveWorkbook.SaveAs ("C:\Projekte\" & dername & "_" & Date & ".xls")
UserForm1.Hide
UserForm2.Show
End Sub
Erreichen will ich, das wenn bei der Abfrage ein schon bestehender Name eingegeben wird und die Frage kommt ob die Datei ersetz werden soll und ich "NEIN" wähle, nach einem anderen NAmen gefragt wird.
Das ganze klappt auch, aber nur 1 mal !!!
Wenn ich also einen bestehenden Namen eingebe, und ich "nein" beim der Frage nach dem Ersetzen wähle, kommt erneut die Frage nach einem NAmen. Wenn ich dann wieder den gleichen namen eingebe, komme ich ins "debuggen" menue........