Abbrechen der InputBox
Private Sub Command1_Click()
Dim test As String
test = InputBox("Gib hier etwas ein oder klicke auf Abbrechen!", "Inputbox Test")
If test = "" Then
MsgBox "Es wurde auf Abbrechen geklickt!"
Else
MsgBox test
End If
End Sub
Wird auf die Schaltfläche Abbrechen geklickt, so wird immer eine Zeichenfolge mit Null zurückgeliefert. Egal ob etwas eingegeben wurde oder nicht. Daher Du musst nur mit dieser Zeichenfolge Null etwas tun um keinen Fehler zu erhalten!
mfg
Michael
|