Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox Eingaben-Einschränkung

Forumthread: InputBox Eingaben-Einschränkung

InputBox Eingaben-Einschränkung
26.12.2006 20:03:08
André
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.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: InputBox Eingaben-Einschränkung
26.12.2006 20:10:41
chris
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
Anzeige
AW: InputBox Eingaben-Einschränkung
26.12.2006 20:32:07
André
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?
AW: InputBox Eingaben-Einschränkung
26.12.2006 22:16:40
chris
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige