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

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.

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige