Herbers Excel-Forum - das Archiv
InputBox Eingaben-Einschränkung
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: InputBox Eingaben-Einschränkung
von: André
Geschrieben am: 26.12.2006 20:03:08
Hallo,
Ich will Zahlenwerte über eine InfoBox eingeben.
ActiveCell = InputBox("Wert eingeben: ")~f~
Was muss man schreiben, damit die Eingabe nur auf Zahlen beschränkt ist?
Der Wert soll dann auch in ein Textfeld eingetragen werden.
~f~TextBox1.Value = ActiveCell~f~
Was muss man schreiben, damit die Ausgabe Formatiert ist.
z.B.:~f~Format([A1], "#,##0.00 €")
Da ich aber keine genaue Zelle Habe, weiss ich nicht, was ich an Stelle von A1 schreiben muss.
Betrifft: AW: InputBox Eingaben-Einschränkung
von: chris b
Geschrieben am: 26.12.2006 20:10:41
Hallo das könnetst du so erreichen.
Es werden nur Zahlenwerte in die aktive Zelle eingetragen.
Hoffe es ist dir behilflich.
Sub neu()
Dim cb As Integer
On Error GoTo keinezahl
cb = InputBox("Wert eingeben:")
ActiveCell = cb
keinezahl:
End Sub
gruß Chris
Betrifft: AW: InputBox Eingaben-Einschränkung
von: André
Geschrieben am: 26.12.2006 20:32:07
Danke.
Soweit ok.
Im Moment schreibt er den Wert nicht ein, wenn es keine Zahl ist.
Ist es auch möglich, dass bei der Eingabe eine Fehlermeldung kommt?
Betrifft: AW: InputBox Eingaben-Einschränkung
von: chris b
Geschrieben am: 26.12.2006 22:16:40
Geht auch.
Versuchs so. Ungetestet
Sub neu()
Dim cb As Integer
On Error GoTo keinezahl
cb = InputBox("Wert eingeben")
ActiveCell = cb
exit sub
keinezahl:
msgbox("Eingegebener Wert ist keine Zahl")
End Sub