Re: MsgBox
11.04.2003 21:12:32
Jens
HalloAuswertung = MsgBox ("Wollen Sie in die Druckansicht!",vbYesNo,"Frage")
If Auswertung = vbNo then
Exit Sub
Else
'Was dann passieren soll ..
End if
Das mit dem Zuück zum Stat ist nicht so einfach geschrieben.
Go To soll man nicht nehmen.
Ich würde es mit einer Schleife machen. z.B. Do Loop
Aber ich denke das wird noch verwirender für dich wenn du schon Probleme mit der MsgBox hast.
Sub Test()
Do
Auswertung = MsgBox ("Wollen Sie in die Druckansicht!",vbYesNo,"Frage")
If Auswertung = vbNo then
TextVar = False
Else
'Was dann passieren soll ..
TestVar = True
End if
Loop Until = True
End sub
Gruß Jens