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 Function Eing()
 
 'Quelle: www.dbwiki.net oder www.dbwiki.de
 
 Dim eingabewert As String
 
 eingabewert = InputBox("Bitte etwas eingeben", "Titel der Inputbox")
 
 If StrPtr(eingabewert) = 0 Then
   MsgBox "Es wurde 'Abbrechen' angeklickt'"
 Else
   If eingabewert = "" Then
     MsgBox "Es wurde nichts eingegeben"
   Else
     MsgBox "Es wurde '" & eingabewert & "' eingegeben"
  End If
 End If
 
End Function

Aufruf

Test dieser Funktion im Direktfenster des VBA-Editors mit

?Eing()