ich bin gerade wieder am verzweifeln :-(
ich möchte beim Speichern das mehrere MsgBoxen hintereinander aufgehen je nachdem ob ja oder nein betätigt wird.
der Code für die Grund-MsgBox ist wie folgt:
Dim byWert As Byte
byWert = MsgBox("Text", 4, "")
If byWert = 6 Then
....
ElseIf byWert = 7 Then
....
End If
Die erste MsgBox habe ich unter der Prozedur Before_Save eingefügt. Die nachfolgenden unter Module, mit "Call ..."
Jetzt solle folgendes beim speichern passieren:
1. Speichern drücken
2. MsgBox = "Haben Sie eine Veränderung an der Datei durchgeführt?
Nein = MsgBox "Die Datei wird jetzt gespeichert"Speichern erfolgt
Ja = zweite MsgBox öffnet sich
3. zweite MsgBox = "Waren die Veränderungen in Bereich A?
Nein = dritte MsgBox öffnet sich
Ja = vierte MsgBox öffnet sich
4. dritte MsgBox = "Die Änderungen werden gespeichert" speichern erfolgt
5. vierte MsgBox = "Haben Sie die Veränderungen auf einer separaten Karte gedruckt?"
Nein = fünfte MsgBox = "Die Änderungen wurden nicht gespeichert, drucken Sie die Karte!" speichern abbrechen
Ja = sechste MsgBox öffnet sich
6. sechste MsgBox = "Bitte legen Sie die Karte in die Ablage" speichern erfolgt
Ich habe das mit dem MsgBoxen die sich hintereinander öffnen, über Module hinbekommen, allerdings klappt es nicht, das ich aus einem Modul den Speichervorgang abbreche, bzw. aus dem Modul einen Sub in der Arbeitsmappe anspreche, falls man das Speichern nur in "dieseArbeitsmappe" abbrechen könnte.
Er speichert immer, egal welche MsgBox gewählt wird. :-(
Hatte auch versucht, direkt die MsgBoxen untereinander in "dieseArbeitsmappe" im Sub Before_Save zu "verknüpfen", aber da müssen dann Zeilen beim durchlaufen des Codes einiger MsgBoxen übersprungen werden, je nachdem was der Anwender drückt. Hat also auch nicht funktioniert...
Hat jemand eine Idee, wie man in dem Fall den "Weg des Durchlaufens" realisieren kann?
Viele Grüße
Fred