InputBox - Eingaben begrenzen

[Rudolf Loibl]

Hallo!

Wie kann ich bei einer InputBox festlegen, dass nur die Zahlen 1 - 6
eingegeben werden dürfen?

Danke
Rudi

[Herbert Taferner]

Hallo Rudolf,

Post by Rudolf Loibl
Wie kann ich bei einer InputBox festlegen, dass nur die Zahlen 1 - 6
eingegeben werden dürfen?

z. B.
Dim zahl
Do
zahl = InputBox("Eingabe nur 1 - 6 möglich")
If zahl < 1 Or zahl > 6 Then zahl = ""
Loop Until zahl <> ""

mfg Herbert

[Rudolf Loibl]

Hallo Herbert,

vielen Dank für die schnelle Hilfe.

Kannst Du mir noch sagen, wie ich ein laufendes Makro abbreche?

Rudi

Post by Herbert Taferner
Hallo Rudolf,

Post by Rudolf Loibl
Wie kann ich bei einer InputBox festlegen, dass nur die Zahlen 1 - 6
eingegeben werden dürfen?

z. B.
Dim zahl
Do
zahl = InputBox("Eingabe nur 1 - 6 möglich")
If zahl < 1 Or zahl > 6 Then zahl = ""
Loop Until zahl <> ""
mfg Herbert

[Herbert Taferner]

Hallo Rudolf,

Post by Rudolf Loibl
vielen Dank für die schnelle Hilfe.

Bitte gern !

Post by Rudolf Loibl
Kannst Du mir noch sagen, wie ich ein laufendes Makro abbreche?

was meinst du da konkret, bzw. was macht das Makro

mfg Herbert

[Herbert Taferner]

Hallo Rudolf,

Post by Herbert Taferner

Post by Rudolf Loibl
Kannst Du mir noch sagen, wie ich ein laufendes Makro abbreche?

was meinst du da konkret, bzw. was macht das Makro

oder vielleicht hilft dir da was, da gibt es so viele Möglichkeiten

http://groups.google.de/groups?as_q=excel+vba+macro+abbrechen&num=10&scoring=r&hl=de&as_epq=&as_oq=&as_eq=&as_ugroup=&as_usubject=&as_uauthors=&lr=&as_drrb=q&as_qdr=&as_mind=1&as_minm=1&as_miny=1981&as_maxd=27&as_maxm=9&as_maxy=2006

mfg Herbert

[Rudolf Loibl]

Ich habe wohl eine Endlosschleife eingebaut, die weder mir ESC noch mit
einem Klick auf Abbrechen beenden kann :-(

Post by Herbert Taferner
Hallo Rudolf,

Post by Rudolf Loibl
vielen Dank für die schnelle Hilfe.

Bitte gern !

Post by Rudolf Loibl
Kannst Du mir noch sagen, wie ich ein laufendes Makro abbreche?

was meinst du da konkret, bzw. was macht das Makro
mfg Herbert

[Melanie Breden]

Hallo Rudolf,

Post by Rudolf Loibl
Ich habe wohl eine Endlosschleife eingebaut, die weder mir ESC noch mit
einem Klick auf Abbrechen beenden kann :-(

schau dir mal mein Beispiel an.


Mit freundlichen Grüssen
Melanie Breden

[Herbert Taferner]

Hallo Rudolf,

Ich habe wohl eine Endlosschleife eingebaut, die weder mir ESC noch mit einem
Klick auf Abbrechen beenden kann :-(

versuchs mal mit STRG + PAUSE

mfg Herbert

[Rudolf Loibl]

DANKE - das war es.

Noch einen schönen Abend

Bitte entschuldige die späte Antwort, aber ich hatte jetzt ein langes
Telefonat.

Post by Herbert Taferner
Hallo Rudolf,

Post by Rudolf Loibl
Ich habe wohl eine Endlosschleife eingebaut, die weder mir ESC noch mit
einem Klick auf Abbrechen beenden kann :-(

versuchs mal mit STRG + PAUSE
mfg Herbert

[Herbert Taferner]

Hallo Rudolf,

Post by Rudolf Loibl
DANKE - das war es.

Bitte gern !

mfg Herbert

[Melanie Breden]

Hallo Rudolf,

Post by Rudolf Loibl
Wie kann ich bei einer InputBox festlegen, dass nur die Zahlen 1 - 6
eingegeben werden dürfen?

festlegen kannst du es nicht im voraus, sondern nur die Eingabe prüfen
und dann darauf reagieren.

Hier ein Beispiel, in der die InputBox immer weider angezeigt wird,
bis entweder eine richtige Eingabe oder ein Abbruch erfolgt.:

Public Sub MyInputBox()
Do
Select Case Application.InputBox("Geben Sie eine Zahl zwischen 1 und 6 ein.", Default:=1, Type:=1)
Case False
MsgBox "Eingabe wurde abgebrochen"
Exit Sub
Case 1 To 6
MsgBox "Richtige Eingabe"
Exit Do
Case Else
MsgBox "Falsche Eingabe."
End Select
Loop
End Sub


Mit freundlichen Grüssen
Melanie Breden