Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: In TextBox nach 2 Zeichen ein Minus einsetzen

In TextBox nach 2 Zeichen ein Minus einsetzen
05.04.2024 17:13:54
Markus Klar
Hallo zusammen,

ich habe auf einem Excel-Sheet eine TextBox, bei der ich nach Eingabe von 2 Zeichen ein Minus-Zeichen automatisch einsetzen lassen möchte.
If TextBox1.TextLength = 2 Then

TextBox1.Text = TextBox1.Text & "-"
End If


Das funktioniert leider nicht wirklich gut, da ich den Inhalt der TextBox jetzt nicht mehr komplett löschen kann, es bleiben immer 2 Zeichen stehen.
Kann mir bitte jemand den Knoten im Kopf lösen?

Vielen Dank und VG
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: In TextBox nach 2 Zeichen ein Minus einsetzen
05.04.2024 17:37:42
Onur
Mit 3 Zeilen Code ist das nicht zu lösen? Wo ist der Rest (die Datei, der restliche Code) ?
AW: In TextBox nach 2 Zeichen ein Minus einsetzen
05.04.2024 17:43:13
Beverly
Hi Markus,

z.B. so:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If Len(TextBox1) > 2 Then TextBox1 = Left(TextBox1, 2) & "-" & Mid(TextBox1, 3)
End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: In TextBox nach 2 Zeichen ein Minus einsetzen
05.04.2024 18:08:29
Kuwer
Hallo Markus,

ersetze Dein momentanes Makro, welches auch immer das gerade ist, durch folgendes:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 8 Then
If TextBox1.TextLength = 2 Or TextBox1.TextLength = 3 Then
TextBox1.Text = Left(TextBox1.Text, 1)
End If
Else
If TextBox1.TextLength = 2 Then
TextBox1.Text = TextBox1.Text & "-"
End If
End If
End Sub


Gruß, Uwe
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige