Supportnet / Forum / Tabellenkalkulation

Hallo comunity, ich habe da mal wieder ein kleines Problemchen vieleicht kann mir ja wieder jemand helfen. Also ich habe folgenden code: search = _ InputBox(prompt:= _ "please enter the code you are looking for: ", _ Title:="", Default:=defaultSearch) If search = "" Then MsgBox ("You did not enter any value!") Exit Sub End If Inputbox hat ja zwei Schaltflächen (OK und cancel) und ich möchte jetzt für jeden dieser beiden Schaltflächen eine Abfrage machen. Und zwar im Stil von "cancel gedrückt" wenn auf *cancel* gedrückt wurde. Und wenn der Benutzer "OK" drückt soll er schauen was er eingegeben hat. Wenn ein Wert drin steht dann ist alles in Ordnung und der Wert soll in *search* geschrieben werden. Wurde allerdings kein Wert eingegeben und trotzdem "OK" geklickt dann soll er sowas sagen wie "kein Wert eingegeben!" und wenn er dann noch die Inputbox wieder öffnet dann wäre das super Sahne. Ich habe das ganze schon probiert mit If (hab das so in einem Buch gelesen) aber die Inputbox gibt ja wenn nichts eingegeben wurde und "OK" gedrückt wird einen leeren String zurück und wenn "cancel" gedrückt wird kommt auch ein leerer String zurück! *achselzuck* Kann mir jemand helfen? Wenn nicht dann trotzdem Danke, dass ihr den Text gelesen habt! MIt freudlichen Grüßen der nicht Namenlose Thomas ;-)

Hi Thomas,

meinst du sowas

Sub a()
    Dim search As String
    Dim defaultSearch As String
    defaultSearch = "Hallo"
0:
    search = _
    InputBox(prompt:= _
    "please enter the code you are looking for: ", _
    Title:="", Default:=defaultSearch)
    If search = "" Then
        MsgBox ("You did not enter any value!")
        GoTo 0
    End If
End Sub

Bis später,
Karin

hi all :-)

noch ein beispiel :-)

gruss nighty

Sub meineInputbox()
Dim meinInputBox As Variant
meinInputBox = InputBox("Hallo", "Eingabefenster", "Hier ist die Texteingabe :))", vbYesNo + vbQuestion)
If meinInputBox = "" Then
Range("a1") = "Abbruch oderb keine Eingabe"
Else
Range("a1") = "Eingabe erfolgreich"
End If
End Sub

Ich habe es jetzt so gelöst, dass ich als default Wert ein "Leerzeichen" reinschreibe und wenn einfach "OK" gedrückt wird dann frage ich mit einer IF Anweisung ab ob es ein "Leerzeichen", ein "leerer String" oder ein richtiger Wert ist der zurückgegeben wird und shcon ist mein Problem gelöst.

Aber trotzdem danke an alle die mir helfen wollten.

• Abfrage auf ABBRUCH in InputBox
• VBA InputBox Problem
• VBA - Inputbox
• inputbox VBA code ändern
• VBA - Import mit Pfadangabe (Inputbox)