Krieg die blöde MsgBox nicht hin.
Anstatt als File speichere ich eine Datenbank und brauche die MsgBox dazu eine Warnung auszugeben, falls der Speichername bereits vorhanden ist.
Nachricht: Datei besteht bereits, wollen sie bestehende Datei ueberschreiben?
Yes = normale Speicherung
No = Code soll ganz von Anfang an nochmals starten und den Speichnamen nochmals abfragen.
Cancel = Programm wird beendet
Mein Code schaute jetzt so aus:
start:
'Abfrage Speichernamen etc.
For x = 1 To i
If Workbooks("Database").Sheets("Sheet1").Cells(x, 1) = savename Then
Msg = "File '" & savename & "' already exists. Do you want to continue and overwrite existing data?"
Style = vbYesNoCancel + vbCritical + vbDefaultButton2
Title = "Save as..."
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MsgBox ("yes")
GoTo veryend
End If
If Responde = vbNo Then
GoTo start
End If
If Responde = vbCancel Then
End
End If
End If
Next x
MsgBox ("normal save")
veryend:
Das Yes funktioniert, der Rest aber nicht.
Bei No soll er an den Start zurück geht aber nicht. Habs mit Goto versucht.
Bei Cancel soll er das Programm umgehend verlassen. Trotz dem Befehl End, kommt aber trotzdem noch die Nachricht "normal save".
Bitte um Hilfe. Habe mir schon überlegt, ob es daran liegen könnte, dass ich das ganze innerhalb einer For...Next Schlaufe mache.
Im Voraus besten Dank.
Gruss
Chris