---

Hallo,
ich habe in einer Userform eine Textbox in der ich nur numerische Eingaben zulassen möchte.
In der Sub Textbox1_change frage ich das mit "IsNumeric" ab, jetzt kann ich aber kein "-" eingeben.
Ich muss zuerst einen Wert eingeben und dann das "-" davorsetzen, ist etwas umständlich aber geht.
Ausserdem möchte ich mit einem Button "Löschen", eine schon eingegebenen Wert löschen.
Wenn ich das mit Textbox1.Value="" mache, meckert die Sub auch.

Wie machen das die Profis?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1.
Erst nach der Eingabe prüfen:

Code:

---

If (IsNumeric(TextBox1.Text)) Then
  MsgBox "Numeric"
Else
  MsgBox "Not numeric"
End If

---

2.

Code:

---

TextBox1.Text = ""

---

3.

Zitat:

---

Original erstellt von SHP:

Wie machen das die Profis?

---

Gar nicht. 

------------------
Grüße Igor

FX64 Software Solutions

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hans-Peter,

versuch's mal so:

Code:

---

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57 'Zahlen
            If CBool(InStr(1, TextBox1.Text, "-")) And TextBox1.SelStart = 0 Then _
                TextBox1.Text = Replace(TextBox1.Text, "-", "")
        Case 45 'Bindestrich
            If TextBox1.SelStart <> 0 Then KeyAscii = 0
            If CBool(InStr(TextBox1.Text, "-")) Then KeyAscii = 0
        Case 44, 46
            If KeyAscii = 44 Then KeyAscii = 46
            If CBool(InStr(TextBox1.Text, ".")) Then KeyAscii = 0
            If CBool(InStr(1, TextBox1.Text, "-")) And TextBox1.SelStart = 0 Then _
                TextBox1.Text = Replace(TextBox1.Text, "-", "")
        Case Else
            KeyAscii = 0
    End Select
End Sub

---

Damit die Textbox den Fokus behält, musst du in den Eigenschaften des Commandbuttons die Eigenschaft TakeFokusOnClick auf False setzen.

------------------
Gruß
Nepumuk

[Diese Nachricht wurde von Nepumuk am 06. Jan. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist ja nun auch etwas "von hinten durch die Brust ins Auge"

Wenn "isnumeric" bei neg. Zahlen nicht funktioniert, würde ich es ml mit "val()" versuchen. Müßte ja im Falle einer fehlerhaften Typumwandlung einen Fehler geben. Zumindest funzt das im Pascal 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Abend die Herren;-),

bin mal beim change() geblieben, war bissel Knobelei,
bin nun auch 10 graue Haare reicher    ... also hier mal noch ne Variante:

Code:

---

Option Explicit
Private re As Object

Private Sub UserForm_Initialize()
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "^-?\d*\.?\d*$"
End Sub

Private Sub TextBox1_Change()
    With TextBox1
        If .TextLength > 0 And Not re.test(.Text) Then .Text = Mid(.Text, 1, .TextLength - 1)
    End With
End Sub

---

lg Nancy

[Diese Nachricht wurde von startrek am 08. Jan. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke mal für Eure Antworten.

@Igor,
sind bei Dir denn alle Eingaben möglich?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von SHP:

@Igor,
sind bei Dir denn alle Eingaben möglich?

---

Ja. Wenn du es aber während der Laufzeit überprüfen möchtest, kannst du einen von beiden Codes nutzen (Nepumuk, startrek).

------------------
Grüße Igor

FX64 Software Solutions

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Forumuser

Habe auch ein Feld erstellt mit folgendem Code zur Überprüfung!

Zitat:

---

Original erstellt von daywa1k3r:

Code:

---

If (IsNumeric(TextBox1.Text)) Then
  MsgBox "Numeric"
Else
  MsgBox "Not numeric"
End If

---

---

Gibt es hier eine Möglichkeit Ausnahmen zu erlauben zum Beispiel den Buchstaben x?

Wenn ja wie geht das?

Danke schonmal!

MfG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

nicht mit der Funktion IsNumeric. Um dir aber zu sagen, wie's gehen könnte, müsstest du schon den Aufbau herausrücken.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

code.txt objektansicht.GIF

Das komplette script? oder was meinst du?

Script ist im Anhang!

Ich füge mit diesem Script ein skizziertes Symbol in Compass ein und die  Werte in den Textboxen entsprechen den angeforderten Eingaben im skizzierten Symbol!

MfG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn mein Code umständlich ist, bin ich offen für Verbesserungsvorschläge!
Ich bin nämlich froh wenn ich sowas überhaupt hin bekomme, habe vor ein paar Monaten nichts gekonnt in VBA hab alles nur aus dem Forum hier gelernt durch anschauen von anderem Code und ausprobieren!
Also ich kenn mich nicht wirklich aus!

Jetzt weiß ich zumindest was der Code macht, den ich verwende! :-)

Hier mal ein Dankeschön an alle Leute, die hier immer fleißig Antworten!

MfG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP