4. MsgBox Funktion
26.02.2009 20:18:11
Frank
Ich möchte meiner MsgBox eine 4. Funktion verpassen und zwar eine clear all Funktion.
Kann mir jemand sagen wie ich diese einbauen kann?
Private Sub CommandButton2_Click()
Dim aStr As Byte
If TextBox1.Text = "" Then
Unload UserForm1
Exit Sub
Else
aStr = MsgBox("Möchten Sie den eingegebenen Datensatz" & vbCrLf & vbCrLf & vbTab & _
" - zuvor speichern (Ja)" & vbCrLf & vbCrLf & vbTab & _
" - nicht speichern (Nein)" & vbCrLf & vbCrLf & vbTab & _
" - nur leeren (CLR)" & vbCrLf & vbCrLf & vbTab & _
" - nichts unternehmen (Abbrechen)", vbYesNoCancel, "Sicherheitsfrage")
If aStr = vbYes Then
CommandButton1_Click
'ElseIf aStr = vbCLR Then
'Unload UserForm1
'UserForm1.Show
ElseIf aStr = vbNo Then
Unload UserForm1
Else
End If
End If
End Sub
Gruß Frank