---

Hallo,

ich hätte eine Frage. Ich möchte über eine InputBox einen Wert einlesen. Ich habe eine Schleife programmiert damit ich den richtigen Wert einlese und keine Fehleingaben passieren. Das funktioniert auch super.
Aber wie kann ich bei dieser InputBox den Button "Abbrechen" ansprechen. Immer wenn ich auf "Abbrechen" klicke, fragt er mich wieder nach dem Eingabewert.

Vielleicht kann mir jemand helfen.

Vielen Dank!

LG Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Peter,

mit StrPtr() kannst Du feststellen, ob Abbrechen geklickt wurde:

Code:

---

Sub input_box()
  Dim x, s As String
  x = InputBox("was eingeben oder auch nicht")
  If StrPtr(x) = 0 Then
      s = "canceled"
  ElseIf x = vbNullString Then
      s = "keine Eingabe"
  Else
      s = x
  End If
  MsgBox s
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi nancy,

vielen dank! funktioniert super!

lg peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

jetzt muß ich euich nochmal belästigen.

den wert den ich abfragen möchte ist der name eines tabellenblattes dass automatisch erstellt wird. wie kann ich jetzt überprüfen ob dieser wert schon einmal in der arbeitsmappe vorkommt? und dann eine meldung machen dass ein anderer wert einegegeben werden muß!

danke!

lg peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi again,

Peter, mal nur als mögliches Beispiel:

Code:

---

Sub x()
    Dim s, i%, flag As Boolean
    Do
        If flag = False Then s = InputBox("Name", , "Tabelle" & CStr(Sheets.Count + 1)) Else _
        s = InputBox("was andres einfallen lassen", "sorry")
        For i = 1 To Sheets.Count
            If LCase(s) = LCase(Sheets(i).Name) Then
                flag = 1
                Exit For
            Else
                flag = 0
            End If
        Next
    Loop Until flag = False
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vielen dank!

funktioniert mit einer kleinen anpassung perfekt!

hat mir sehr geholfen (das gibt einen einen eintrag in der danksagung meiner diplomarbeit).

lg peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder so, schöner, kürzer, schneller, yeah;-)

Code:

---

Sub y()
    Dim i%, s
    ReDim arr(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        arr(i) = Sheets(i).Name
    Next
    Do
        s = InputBox("Name", , "Tabelle" & CStr(Sheets.Count + 1))
    Loop Until UBound(Filter(arr, s)) = -1
End Sub

---

Nancy;;-))

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP