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

Tausender-Trennzeichen in TextBox

Forumthread: Tausender-Trennzeichen in TextBox

Tausender-Trennzeichen in TextBox
12.09.2003 08:59:31
Armin
Hallo,

ich habe folgendes Problem mit meiner Userform:

Ich möchte gerne die TextBox1 mit der TextBox2 addieren (oder auch subtrahieren) und den Wert in der TextBox3 anzeigen lassen. Ich möchte allerdings, dass die Tausender-Trennzeichen angezeigt werden.

Ich benutze folgenden Code:


Private Sub TextBox2_Change()
TextBox3 = Format(Userform1.TextBox3, "#,##0.00")
End Sub


Leider passiert nun folgendes:

Eingabe: (Subtrahieren)

TextBox1: 30.000.000
TextBox2: 15.000.000

Ausgabe:

TextBox3: 15 !!!!!!!!!!!!!

Wie muss ich den Code ändern, damit die TextBox3 den Wert "15.000.000" anzeigt?


Danke für die Hilfe

Armin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tausender-Trennzeichen in TextBox
12.09.2003 09:11:49
PeterA
Hallo Armin !

Ich hab das mal nachgebaut und bei mir kommt es mit tausenderpunkte


Private Sub CommandButton1_Click()
TextBox3 = Int(TextBox1) - Int(TextBox2)
TextBox3 = Format(UserForm1.TextBox3, "#,##0")
End Sub


Ciao Peter

Private Sub UserForm_Initialize()
TextBox1 = 30000000
TextBox2 = 15000000
End Sub

Anzeige
an: Peter A
12.09.2003 10:08:44
Armin
Hallo Peter,

sorry, aber der Code bringt doch nichts. Und der zweite Teil, also


Private Sub Userform_Initialize()
TextBox1 = 30000000
TextBox2 = 15000000
End Sub


bedeutet doch, dass die TextBox1 immer 30000000 und die TextBox2 immer 15000000 groß sein muss, oder? Ich brauche aber diese Userform um immer mit verschiedenen Werten arbeiten zu können.

Gruß Armin
Anzeige
AW: Tausender-Trennzeichen in TextBox
12.09.2003 09:13:44
BerndE
Hi Armin,

ich vermute, dass dort wo die Berechnung und der Eintrag in Textbox3 stattfindet, keine 'Format-Anweisung' hinterlegt ist. Versuch's mal dort...

Gruß
Bernd

www.bernds.page.de.vu
an: BerndE
12.09.2003 10:10:31
Armin
Hallo Bernd,

nein, das war nicht das Problem.

Gruß

Armin
Anzeige
;
Anzeige

Infobox / Tutorial

Tausender-Trennzeichen in Excel TextBox richtig verwenden


Schritt-für-Schritt-Anleitung

Um Tausender-Trennzeichen in einer Excel TextBox korrekt anzuzeigen, folge diesen Schritten:

  1. Öffne die Userform in deinem Excel-Projekt.
  2. Füge zwei TextBoxen (TextBox1 und TextBox2) und eine dritte TextBox (TextBox3) hinzu, die das Ergebnis anzeigen soll.
  3. Implementiere den folgenden VBA-Code in das Userform:
Private Sub TextBox2_Change()
    Dim wert1 As Double
    Dim wert2 As Double
    Dim ergebnis As Double

    ' Werte aus TextBoxen lesen
    wert1 = CDbl(Replace(TextBox1.Text, ".", ""))
    wert2 = CDbl(Replace(TextBox2.Text, ".", ""))

    ' Berechnung
    ergebnis = wert1 - wert2

    ' Ergebnis formatieren und in TextBox3 anzeigen
    TextBox3.Text = Format(ergebnis, "#,##0")
End Sub
  1. Stelle sicher, dass die Eingaben in TextBox1 und TextBox2 als Zahlen ohne Punkte eingegeben werden.
  2. Teste die Userform, indem du verschiedene Werte eingibst. Das Ergebnis in TextBox3 sollte nun korrekt mit Tausender-Trennzeichen angezeigt werden.

Häufige Fehler und Lösungen

  • Problem: TextBox3 zeigt nicht das erwartete Ergebnis.

    • Lösung: Stelle sicher, dass die Werte in TextBox1 und TextBox2 als numerische Werte interpretiert werden. Verwende die CDbl-Funktion, um die Eingaben in Zahlen zu konvertieren und entferne vorherige Tausenderpunkte.
  • Problem: Die Ausgabe ist nicht formatiert.

    • Lösung: Achte darauf, dass die Formatierungsanweisung richtig implementiert ist, wie im obigen Code gezeigt.

Alternative Methoden

Eine alternative Methode zur Darstellung von Tausender-Trennzeichen wäre die Verwendung von benutzerdefinierten Formatierungen in Excel statt VBA. Dies kann jedoch nur für Zellen und nicht für TextBoxen angewendet werden.

  1. Wähle die Zelle aus, in der du das Ergebnis darstellen möchtest.
  2. Gehe zu Start > Zahlenformat und wähle Benutzerdefiniertes Format.
  3. Gib #,##0 ein, um Tausender-Trennzeichen anzuzeigen.

Wenn du jedoch interaktive Eingaben benötigst, ist die VBA-Methode die bessere Wahl.


Praktische Beispiele

Hier sind einige Beispiele, wie du die Benutzerform mit verschiedenen Werten testen kannst:

  • Eingabe 1:

    • TextBox1: 30.000.000
    • TextBox2: 15.000.000
    • Ausgabe in TextBox3: 15.000.000
  • Eingabe 2:

    • TextBox1: 1.000.000
    • TextBox2: 500.000
    • Ausgabe in TextBox3: 500.000

Diese Beispiele zeigen, wie die Tausender-Trennzeichen nach den Berechnungen korrekt angezeigt werden.


Tipps für Profis

  • Nutze die Replace-Funktion, um sicherzustellen, dass kein Punkt in den Zahlen ist, bevor du die Berechnung durchführst. Dies hilft, Fehler in der Konvertierung zu vermeiden.

  • Experimentiere mit verschiedenen Formatierungsoptionen, um das Aussehen der Ausgabe in TextBox3 anzupassen, wie z. B. Dezimalstellen oder Währungszeichen.

  • Verwende Application.WorksheetFunction für komplexere Berechnungen, falls nötig.


FAQ: Häufige Fragen

1. Warum wird das Tausender-Trennzeichen nicht angezeigt?
Das kann daran liegen, dass die Werte nicht korrekt als Zahlen interpretiert werden. Stelle sicher, dass du die CDbl-Funktion verwendest, um die Werte zu konvertieren.

2. Kann ich die Userform auch für andere Berechnungen nutzen?
Ja, die Userform kann leicht angepasst werden, um verschiedene Berechnungen durchzuführen. Du musst lediglich die Berechnungslogik im Code anpassen.

3. Welche Excel-Version benötige ich?
Der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und höher.

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