AW: Inputbox
16.02.2006 11:01:10
WernerB.
Hallo Matthias,
die "bekannte Schwäche von Inputbox" kannst Du so in den Griff bekommen (die Lösung kommt aus dem Forum; ist also nicht auf meinem Mist gewachsen):
Sub InputBox()
Dim s As String
s = InputBox("Aufforderung:", "Titel", "Vorbelegung")
If StrPtr(s) = 0 Then
MsgBox "Sie haben ""Abbrechen"" gedrückt !" & vbCr & vbCr & _
" Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
ElseIf s = "" Then
MsgBox "Sie haben keine Eingabe gemacht !" & vbCr & vbCr & _
" Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
'Hier geht das Makro weiter ...
End Sub
Gruß
WernerB.