Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
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
TextBox nur Zahlen zulassen
Heinz
Hallo Leute
Ich möchte mit unteren Code erzwingen,das in TextBoxE nur Zahlen eingetragen werden müssen.
Zb. 1 oder 12.5
Leider kommt jetzt immer die MsgBox.
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Private Sub CommandButton1_Click()
Dim i As Integer
Dim zeile As Integer
If Not TextBoxE Like "#.#" Then
TextBoxE.SetFocus
MsgBox "Eingabe in Textbox ist Falsch"
Exit Sub
End If

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

Betreff
Benutzer
Anzeige
AW: TextBox nur Zahlen zulassen
09.01.2011 14:24:02
Reinhard
Hallo Heinz,

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And TextBox1.Text  "" Then
MsgBox "..."
TextBox1.Activate
End If
End Sub

Gruß
Reinhard
AW: TextBox nur Zahlen zulassen
09.01.2011 16:23:00
ransi
Hallo HEinz
Versuch mal sowas:
Option Explicit



Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim Regex As Object
    Set Regex = CreateObject("vbScript.Regexp")
    With Regex
        .Pattern = "(^\d+\.\d+$|^\d+\.$|^\d+$)"
        If .test(TextBox1.Text & Chr(KeyAscii)) = False Then KeyAscii = 0
    End With
End Sub


So kannst du "online"verhindern das etwas anderes als ZahlPunktZahl oder ZahlPunkt oder Zahl eingetragen wird.
ransi
Anzeige
AW: Danke Reinhard & Ransi
09.01.2011 16:35:42
Heinz
Recht herzlichen Dank,euch beide.
Echt immer Super wie ihr mich unterstützt.
Nochmals Danke
Heinz

53 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige