Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In TextBox nach 2 Zeichen ein Minus einsetzen

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

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Wert zeischen 2 Zeichen ausgeben
Müller

Hi zusammen
Ich würde gerne den Wert zwischen dem Zeichen " ausgeben lassen. Z.b. in so einem Text:
uebcaise"http://www.irgendwas.de"eirhasbdf"http://www.website.de"vhergta
Jetzt müsste es 2 Werte ausgeben können:
Wert1: http://www.irgendwas.de
Wert2: http://www.website.de
07.12.2008 11:33:00
Thread-ID: 1030829
7 Beiträge
Textbox: nur 2Stellen nach Komma
WolfgangN

Hallo,
Ich habe eine Textbox in einem Userform, in dieser Textbox möchte ich schon während der Eingabe verhindern, dass der User nach dem Komma mehr als 2 Ziffern eingeben kann. Also ab der 3.Ziffer soll nichts mehr passieren. Vor dem Komma ist die Anzahl egal. Im Archiv habe ich schon eini...
08.02.2009 12:49:00
Thread-ID: 1048271
5 Beiträge
Anzeige
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:18:48
Thread-ID: 1086596
2 Beiträge
Macro gesucht Text teilen ab Zeichen "-"
Tom

Liebes Forum,
ich suche ein Macro welches mir alle Zeichen links vom "-" (Minus) in eine neue Spalte B und alle Zeichen rechts vom Minus in die neue Spalte C kopiert. Das "-" (Minus) kann ggf. öfter vor kommen, ich möchte es nur auf das erste von links beziehen.
Konkret
Textxyz 79.x...
06.07.2009 12:19:17
Thread-ID: 1086598
9 Beiträge
text auslesen in excel tabellenblatt
Michael

Public Sub aufruf() Dim IE Dim Quelltext As String Set IE = CreateObject("internetexplorer.application") IE.navigate "http://www.spotlight.de/" Quelltext = IE.Document.documentElement.outerHTML MsgBox Quelltext IE.Quit End Sub Hallo!
Der text soll im Tabellenblatt 1 als Text ausgebeben w...
04.09.2009 18:23:41
Thread-ID: 1100679
4 Beiträge
ausschneiden ab bestimmten zeichen
walter

Hallo an Alle,
ich moechte aus bestehenden Datensätzen alle Zeichen auslesen, die nach dem Gleichheitszeichen (in jedem DSatz enthalten) enthalten sind. Aber Achtung, unterschiedliche Längen.
Danke + Gruß
Walter
12.10.2009 12:32:03
Thread-ID: 1109050
2 Beiträge
Text ab einer bestimmten Stelle löschen +Hyperlink
Werner

Hallo,
ich habe in Excel in einer Spalte (Spalte D) unter einander sehr viele Zeilen nach folgenden Schema
(Hinweis: Ich habe das h am Anfang hier weggelassen, weil der Beitrag sonst immer als Hyperlink dargestellt wird, in meiner Tabelle ist es vorhanden):
ttp://www.ihrname.de*dfg...
05.12.2009 23:35:56
Thread-ID: 1122006
3 Beiträge
Text in Zelle bis Zeichen ; vertauschen
Helmut

Hallo User,
eine kurze Frage:
Wie kann ich in einer Zelle Einen gewissen Text bis zum Zeichen ; nehmen und an den weiteren Text hintanhängen?
z.B:
Text in Zelle lautet:
L=7050;DN=50
Gewünschtes Resultat in der Zelle soll sein:
DN=50;L=7050
Kann mir hier wer helfe...
04.05.2010 16:16:19
Thread-ID: 1155393
3 Beiträge
Text in Zelle bis Zeichen ; vertauschen
Helmut

Hallo User,
eine kurze Frage:
Wie kann ich in einer Zelle Einen gewissen Text bis zum Zeichen ; nehmen und an den weiteren Text hintanhängen?
z.B:
Text in Zelle lautet:
L=7050;DN=50
Gewünschtes Resultat in der Zelle soll sein:
DN=50;L=7050
Kann mir hier wer helfe...
04.05.2010 16:16:55
Thread-ID: 1155394
2 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Textdatei auslesen, hochzählen mit Absätze
urmila

Hallo zusammen,
ich bin auf der Suche nach einer komplexeren Auslesen von Textdatei mit Hochzählfunktion.
Und zwar, habe ich eine txt Datei "C:\Test\Zaehler.txt"
Im Excel Sheet habe ich mehrere Optionsfelder, die mit der Zelle A7 verknüpft ist (geben folgende Werte aus: Auto, Garten...
01.07.2010 10:08:48
Thread-ID: 1164842
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige