MsgBox erweitern
20.08.2006 14:21:11
Dirk
bisher nutze folgenden Code zur Anzeige einer MsgBox:
Private Sub Worksheet_Activate()
If Worksheets("allg").Cells(2, 4).Value = "" Then
MsgBox "Bitte vor dem Ausdrucken die Statistik noch erfassen!!!"
End If
End Sub
Wie müßte der Code aussehen, wenn auch folgende Bedingungen erfüllt werden sollen:
1. Die MsgBox sollte die Optionen Ja/Nein anbieten u. bei Klick auf Ja sollte dann der Sprung zur ZELLE R15 auf dem Blatt 'allg' erfolgen.
2. Bei Klick auf Nein soll sich die MsgBox schliessen u. nichts weiter geschehen.
Freue mich über jeden Tipp!
MfG Dirk N.
Anzeige