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

Tausender Trennzeichen und Kommazahlen in Textbox möglich ?

Forumthread: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?

Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:16:43
fahrstuhl
Moin,

ich habe folgendes Change Event für eine Textbox erstellt. Ziel ist es bei jeder Zahl die eingegeben wird "live"
die Tausender Trennzeichen zu setzen. Das funktioniert so auch. Aber ich kann keine Kommazahl mehr eingeben,
wir müsste der Format BEfehl aussehen, damit auch eine Zahl wie 1234567,89 wie folgt dargestellt wird:

1.234.567,89

Das Kommazeichen ignoriert er komplett. 





Private Sub TextBox2_Redispatch_DV_Change()

TextBox2_Redispatch_DV = Format(Abschaltung_DV_Userform.TextBox2_Redispatch_DV, "#,##")

End Sub
Anzeige
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:26:02
onur
Was sind das für lange Namen? Wirst du pro Buchstabe bezahlt?
Bevor du irgendeine Zahl formatierst, solltest du erstmal dafür sorgen, dass du eine Zahl (und keinen TEXT, wie der Name "Textbox" es schon andeutet) hast.
Baue ein CDBl um den Textboxnamen:
TextBox2_Redispatch_DV = Format(CDbl(Abschaltung_DV_Userform.TextBox2_Redispatch_DV), "#,##")
Anzeige
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:32:57
Sigi.21
Hallo,

VBA spricht englisch (bzw. us-amerikanisch), da ist der Dezimaltrenner ein Punkt und der Tsd-Trenner ein Komma: "#,##0.00"

Gruß Sigi
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:41:11
fahrstuhl
@ Sigi

das führt nur dazu, das bei Eingabe einer 2, sofort die Zahl "2,00" in der Box erscheint,
aber keine weiteren Zahlen mehr eingegeben werden können.

Anzeige
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:43:04
onur
Weil dein Code nicht in das Change-Event sondern in das EXIT-EVENT der Textbox gehört.
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:44:59
fahrstuhl
@ Onur

Wenn ich es ins Exit Event packe, sehe ich es ja aber nicht mehr "live" oder, sondern wenn
ich das richtig verstehe, beim verlassen der Box ?

Es soll ja eine "Kontrolle" sein da da eben auch mal 20.000.000,23 als Zahl stehen kann, das ist
dann mit den Tausender Trennzeichen besser zu erkennen, ob man sich ggf. vertippt hat, ne 0
vergessen hat oder sonst was.

Ich teste es aber mal aus
Anzeige
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:49:36
onur
Du hast Glück, dass Excel nicht abgestürzt ist, denn bei jedem Verändern der Textbox durch deinen Code im Change-Event wird die Textbox ja "gechanged" und ruft sich wieder selbst auf.
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:50:21
fahrstuhl
Also im Exit Event funktioniert das jetzt,.....

"Live" ist das dann nicht möglich, also während der Eingabe ?

Gibt es da ggf. noch eine Möglichkeit ?
Anzeige
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
25.02.2024 11:18:15
hary
Moin
Probier es mal so. Es sind 2 Textboxen uebereinander. Die obere ist transparent.
Evtl. hilft es weiter oder es ein Gedankenanstoss.
https://www.herber.de/bbs/user/167317.xlsm
gruss hary
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
25.02.2024 12:10:49
fahrstuhl
@ hary

Das funktioniert wie es soll , ziemlich umständlicher Weg, aber er macht was er soll !

Super und vielen Dank für die Mühe an Alle !
Anzeige
AW: nochmal Textbox
26.02.2024 10:09:46
hary
Moin nochemal
Sry, hatte es so verstanden dass du mehrere Events ausprobiert hast und die nicht klappen.
So sollte es mit nur einen Textbox gehen.
Textbox Name anpassen 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If InStr(TextBox1, ",") Then

  Select Case InStr(TextBox1, ",")

    Case InStr(TextBox1, ",") = Right(TextBox1, 3)

      TextBox1 = Format(TextBox1, "#,##0.00")

  End Select

Else

TextBox1 = Format(TextBox1, "#,##0")

End If

End Sub

gruss hary
Anzeige
AW: nochmal Textbox
26.02.2024 10:15:41
fahrstuhl
@ Hary

Sauber, das macht exakt was es soll, dir nochmal vielen Dank !

AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:31:44
fahrstuhl
Ist logisch was du sagst, aber wenn ich das einbaue, ändert das leider auch nichts.

Hast du noch eine andere Idee ?
AW: Tausender Trennzeichen und Kommazahlen in Textbox möglich ?
24.02.2024 10:32:47
onur
Ohne eine Datei zu haben: Nein.
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
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzeige
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
+ Zeichen vor einer positiven Zahl
Ropa

HAllo
wie bekomme ich bei allen positiven Zahlen automatisch das + Zeichen davor
Grüße
Ropa
27.02.2009 12:27:01
Thread-ID: 1054699
4 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Anzeige
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo Excel-Profis
Ich habe eine Excel-Datei von ca. 1,7MB Grösse mit 32 Tabellen ein paar Userforms und diverse VBA Codes.
Auf meinem Rechner
Lenovo ThinkPad T60
Intel(R) Core(TM)2 CPU
T7200 @ 2.00GHz, 1.99 GB RAM
mit Office 2003,
ist die Datei in 3 sec. gespeiche...
09.04.2009 16:02:07
Thread-ID: 1068056
3 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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