VBA Tipp: Inputbox

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte bei der Verwendung einer InputBox() unterscheiden können, ob OK (mit Übergabe eines Leerstrings) oder Abbrechen angeklickt wurde.

Lösung

Das geht mit der undokumentierten Funktion StrPtr().

Public Sub Eing()
 
   'Quelle: http://www.dbwiki.net/
 
   Dim eingabewert As String
 
   eingabewert = InputBox("Bitte etwas eingeben", "Titel der Inputbox")
 
   If StrPtr(eingabewert) = 0 Then
      MsgBox "Es wurde 'Abbrechen' angeklickt'"
   ElseIf eingabewert = vbNullString Then
      MsgBox "Es wurde nichts eingegeben"
   Else
     MsgBox "Es wurde '" & eingabewert & "' eingegeben"
   End If
 
End Sub

Aufruf

Test dieser Funktion im Direktfenster des VBA-Editors mit

Eing