Goto in einer UserForm
01.01.2023 15:54:27
Claus
würde gerne die MsgBox mit Ja/Nein Abfrage gegen eine UserForm Box tauschen um diese individuell gestalten zu können.
Für mich taugt jetzt folgendes Problem auf, der Code meiner MsgBox geht weiter mit dem dem Goto Command.
Dieses lässt sich aus der UserForm nicht ansprechen, ich erwarte keinen fertigen Code o.ä. vielleicht könnt Ihr mir erklären wie ich den Verweis wieder zurück bekomme?
Ich hatte eben schon probiert eine If CommandButton1 = True Abfrage mit einzubauen, leider mit keinem Erfolg.
Code der ursprünglichen MsgBox:
Sub CmdBoxExmpl()
Dim mbResult As Long
mbResult = MsgBox( _
Prompt:="Antwortmail? (JA) Neue Email (Nein)", _
Buttons:=vbYesNo)
If mbResult = vbNo Then
GoTo LineNewMail
Else
Dim mbResult2 As Long
mbResult2 = MsgBox( _
Prompt:="Bitte jetzt E-Mail in Outlook markieren, dann JA drücken. Nein = Abbruch", _
Buttons:=vbYesNo)
If mbResult2 = vbNo Then
Exit Sub
Else
GoTo LineReplyMail
End If
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
Option Explicit
Private Sub UserForm_Initialize()
Label2 = "Kunde: " & sKName
End Sub
Private Sub CommandButton1_Click()
GoTo LineReplyMail
End Sub
Private Sub CommandButton2_Click()
GoTo LineNewMail
End Sub
Private Sub CommandButton3_Click()
End Sub
Anzeige