Office: "Abbrechen" Button in Input Box

Moin Moin,

zu gern hätte ich, dass man die Eingabe auch abbrechen kann. Verschiedene Dinge habe ich schon ausprobiert; nur leider läuft keine davon so, wie sie soll.
Momentan hatte ich es damit probiert:

Function intAnzahl_setzen()
Dim intGenannt As Integer

intGenannt = InputBox("Wie viele Parameter möchten Sie eingeben?", "Anzahl Parameter")

Select Case intGenannt ' = InputBox("Wie viele Parameter möchten Sie eingeben?", "Anzahl Parameter")
Case vbCancel: End Function
Case vbOK: intGenannt
End Select

intAnzahl = intGenannt

End Function


Warum habe ich "function" genommen? Weil Sub nicht funktionierte.
Sieht jemand den Fehler? Beim Compilieren meckert er ich hätte ein "Select Case" ohne "End Select"

Vielen Dank schonmal.

:)

 

Hallo,

schau mal hier: http://www.ms-office-forum.net/forum...d.php?t=279027

 

Hi,
Code:

 

Hallo Karin,

Case vbOK spricht nur an, wenn Du eine 1 eingibst.

Grüße
EarlFred

 

Hi,

ich hatte angenommen, dass der TO das geprüft hat.

Ich würde es so lösen:
Code:

 

HAllo
Wenn du die InputBox-Funktion nutzen willst hast du ein grundsätzliches Problem:

***
Da den "Abbrechen Button" auswerten geht auch nicht so ohne weiteres...

Option Explicit

Public Sub Aufruf()
MsgBox intAnzahl_setzen
End Sub

Function intAnzahl_setzen() As String
Dim intGenannt As Variant
intGenannt = InputBox("Wie viele Parameter möchten Sie eingeben?", "Anzahl Parameter")
Select Case StrPtr(intGenannt)
Case 0
intAnzahl_setzen = """Abbrechen"" geclickt"
Case Else:
intAnzahl_setzen = intGenannt
End Select
End Function


Nutze Application.Inputbox.
Da kannst du den Datentyp voreinstellen der zurückgegeben werden soll.

ransi

 

Dankeschön!

Entschuldigt, dass ich mich jetzt erst melde; ich musste mich noch um etwas anderes kümmern.
Aber vielen Dank!! Ihr habt mir sehr geholfen; jetzt funktioniert es auch und ich weiß auch wieso *Smilie