VBA Tipp: Inputbox

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

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()
 
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 Debug-Fenster des VBA-Editors mit

?Eing()