Klappt jetzt,aber meine MessageBox will nicht mehr
03.01.2003 11:25:16
Jessica
Hi Rainer,
komischerweise geht es jetzt plötzlich.. Kann es mir auch nicht so wirklich erklären warum... aber ich hoffe es bleibt so, vielen Dank.
Noch eine kleine weitere Frage, falls es Dich nicht nervt:
Ich habe eine Messagebox eingefügt, die den Benutzer fragen soll, ob er die Eingangswerte drucken will oder nicht.
Das sieht folgendermaßen aus:Dim Mldg As String, Stil As Integer, Titel As String, Antwort As Integer
Mldg = "Wollen Sie die eingegebenen Werte drucken?"
Stil = vbYesNo + vbQuestion
Titel = "Drucken?"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
'Hier kommt der Scroll-Befehl der noch nicht klappt: Eingangsdaten.Scroll (0 , 5)
Eingangsdaten.PrintForm
End If
Beim ersten Aufruf der Userform nach Öffnen der Datei, klappt alles bis auf das Scrollen wunderbar. Sobald ich das ganze aber noch mal aufrufe, erscheint die MessageBox nicht mehr. Wenn ich das ganze im Einzelschritt teste, dann erhalte ich als Rückgabewert der Messagebox =1 , was ja eigentlich der Rückgabewert für OK ist. Ich habe aber eine Ja/Nein-MEssageBox.
Irgendeine Idee, wie das zustande kommt...
Gruß,
Jessica