Office: (Office 2016) Textbox prüfen, ob Komma zweimal vorkommt

Hallo Forum,
ich habe wieder ein typisches Anfängerproblem.
Ich möchte prüfen, ob in einer Textbox die Dezimalzahl mehr als ein Komma als Dezimaltrenner vorhanden ist.
Falls das der Fall ist z.B. bei 1,2,23, dann soll der Fokus wieder auf die Textbox gesetzt werden und der "falsche" Inhalt markiert werden.
Wenn eine ganze Zahl oder eine "richtige" Dezimalzahl eingetragen wird, so soll der Wert in das Tabellenblatt übertragen werden.
Wichtig ist mir die Prüfung.
Falls jemand eine Lösung für mich parat hat, bitte eine Erläuterung des Codes kommentieren, sodass ich den Code nachvollziehen kann. (Ich bin VBA-Anfänger).

Vielen Dank für Eure Hilfe

der Mampfred

 

Hallo Forum,

ich habe mittlerweile eine andere Möglichkeit gefunden, das Problem zu lösen. Ich verhindere die Eingabe eines zweiten Dezimalkomma.
Ist der Code so machbar?

der Mampfred

 

Hi,

versuche es mal mit diesem Code:

Code:

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 48 To 57
    Case 44
      If InStr(TextBox1, ",") > 0 Then
         KeyAscii = 0
         MsgBox "Es ist nur 1 Kommazeichen erlaubt!", vbInformation, "Hinweis"
      End If
    Case Else:
      KeyAscii = 0
      MsgBox "Es sind nur Ziffern erlaubt!", vbInformation, "Hinweis"
    End Select
End Sub

---

 

Hallo Beverly,
sobald ich ein Zeichen in das Textfeld eintragen möchte, knallt es mir weg, ohne weiter Infos.

Code:

Private Sub txtausgabe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 48 To 57
    Case 44
      If InStr(txtAusgabe, ",") > 0 Then
         KeyAscii = 0
         MsgBox "Es ist nur 1 Kommazeichen erlaubt!", vbInformation, "Hinweis"
      End If
    Case Else:
      KeyAscii = 0
      MsgBox "Es sind nur Ziffern erlaubt!", vbInformation, "Hinweis"
    End Select
 
  Unload Me
End Sub

Was mache ich jetzt wieder falsch?

Viele liebe Grüße

der Mampfred

 

Hi,

die Sub muss txtAusgabe heißen und nicht txtausgabe. Excel hat sich da manchmal komisch, wenn die Schreibweise nicht identisch ist und der Steuerelement-Name anders geschrieben ist.

---

 

Hallo Beverly,

ich habe txtAusgabe geändert, aber die Reaktion ist immer noch die Gleiche.
Die UserForm verschwindet, sobald ich eine Ziffer eintragen möchte. Die Eingabe eines Buchstabens hingegen wird mir der MsgBox und dem Hinweis nur Zahlen erlaubt quittiert.

Was geschieht hier?

der Mampfred

 

Hi,

ich sehe gerade, dass das gar nicht mein Code ist, denn bei mir gibt es die Zeile Unload Me nicht. Sie bedeutet ja, dass das UserForm geschlossen und alle Inhalte geleert werden sollen - da musst du dich nicht wundern, wenn Excel genau das auch macht .

 

Hi Beverly,

ich erkenne, dass ich noch sehr viel zu lernen habe. Ich denke aber, dass solche Erfahrungen beim Lernprozess sehr unterstützend aber auch frustrierend sein können.
Trotz meines Frustes und meiner Dummheit, vielen lieben Dank für deine Hilfe.

der Mampfred

 

Hi,

falls es dich tröstet: davor ist man niemals gefeit - nicht als Anfänger, Fortgeschrittener oder Profi und je mehr man weiß, desto mehr weiß man dass man eigentlich nichts weiß . Also lasse den Kopf nicht hängen und freue dich stattdessen, dass du jetzt schon wesentlich mehr weißt als ganz zu Anfang .

---

 

Hi Beverly,

vielen Dank für deinen Zuspruch. Es "tröstet" schon ein wenig, wenn man hört, dass man nicht alleine ist mit seiner Frustbewältigung und dass andere VBA'ler die gleichen Probleme haben oder gehabt haben.
In diesem Sinne. Machen wir weiter, aber besser.

der Mampfred