Herbers Excel-Forum - das Archiv

InputBox Eingaben-Einschränkung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox InputBox
Bild

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.
Bild

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
Bild

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?
Bild

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

 Bild
Excel-Beispiele zum Thema "InputBox Eingaben-Einschränkung"
In eine InputBox eingegebene Daten in Elemente aufteilen Laufwerk über InputBox auswählen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Mit InputBoxes Zeilennummern abfragen und Summe bilden Suchbegriff über InputBox abfragen und Fundzeile löschen
Druckstart- und endzeilen über InputBox abfragen Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen
Über InputBox festzulegenden Bereich kopieren Numerische InputBox-Werte fortlaufend in eine Spalte eintragen