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

Forumthread: Nachkommastellen in TextBox

Nachkommastellen in TextBox
23.02.2007 07:25:00
F
Hallo,
ich habe folgenden Code in einer UF.

Private Sub UserForm_Initialize()
TextBox3.Value = Cells(14 + i, 1)
TextBox2.Value = Cells(14 + i, 2)
End Sub

in den Zellen stehen Zahlenwerte mit drei Nachkommastellen.
Es werden in der UF aber nur die Nachkommastellen angezeigt,
die nicht Null sind. zB: 1.2 oder 1.22
Wie ist das möglich, das immer drei Nachkommastellen angezeigt werden?
Mit freundlichen Grüssen Frank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachkommastellen in TextBox
23.02.2007 07:32:00
Hans
Hallo Frank,
übernimm die Werte mit folgender Syntax:
TextBox3.Value = Format(Cells(14 + i, 1).Value, #,##0.000)
Gruss hans
DANKE für die schnelle Antwort
23.02.2007 07:33:00
F
Gruß
Frank
AW: Nachkommastellen in TextBox
23.02.2007 07:48:37
F
Hallo Hans,
ich habe folgendes gefunden, was auch funktioniert.
TextBox3=cells(14,1).Text
Bei deiner Lösung wird das erste # markiert, und es kommt die Fehlermeldung:
Compiler Error, Expected expression.
Hast Du dazu eine Idee
Mit freundlichen Grüßen
Frank
Anzeige
AW: Nachkommastellen in TextBox
23.02.2007 07:51:00
Hans
... wenn man nicht alles testet. Die Formatierung (ab Raute) ist in Anführungszeichen zu setzen.
Diese Lösung ist der anderen vorzuziehen, da Du mit Text auch Gitterzäune oder ähnliches mittransportierst, wenn die Spalten nicht gross genug sind.
gruss hans
Vielen Dank
23.02.2007 07:54:00
F
Hallo Hans,
das klappt, Danke
Gruß
Frank
Anzeige
gelöst, ich habe es gefunden
23.02.2007 07:32:00
F
Danke
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nachkommastellen in einer TextBox korrekt anzeigen


Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass in deiner TextBox immer drei Nachkommastellen angezeigt werden, kannst du die Format-Funktion in VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel.

  2. Füge ein UserForm hinzu, falls noch nicht geschehen.

  3. Platziere eine TextBox (z.B. TextBox3) in deinem UserForm.

  4. Verwende den folgenden Code, um die Werte mit drei Nachkommastellen anzuzeigen:

    Private Sub UserForm_Initialize()
       TextBox3.Value = Format(Cells(14 + i, 1).Value, "0.000")
       TextBox2.Value = Format(Cells(14 + i, 2).Value, "0.000")
    End Sub
  5. Stelle sicher, dass die Zellen in deinem Arbeitsblatt die gewünschten Werte enthalten.


Häufige Fehler und Lösungen

Hier sind einige häufige Fehler, die auftreten können, und deren Lösungen:

  • Fehlermeldung: Compiler Error, Expected expression.

    • Ursache: Der Formatstring ist nicht korrekt. Achte darauf, dass der Formatstring in Anführungszeichen steht:
      TextBox3.Value = Format(Cells(14 + i, 1).Value, "0.000")
  • Werte werden nicht korrekt angezeigt.

    • Ursache: Stelle sicher, dass die Zellen tatsächlich Werte mit drei Nachkommastellen enthalten. Wenn die Zellen nur Nullen hinter dem Komma haben, kann dies zu unerwarteten Ergebnissen führen.

Alternative Methoden

Falls du eine andere Methode ausprobieren möchtest, kannst du die .Text-Eigenschaft verwenden. Beachte jedoch, dass dies weniger flexibel ist:

TextBox3.Value = Cells(14 + i, 1).Text

Diese Methode gibt den Wert genau so zurück, wie er in der Zelle angezeigt wird, einschließlich aller Nachkommastellen, die im Format der Zelle festgelegt sind.


Praktische Beispiele

Hier ein praktisches Beispiel, das zeigt, wie du die Werte mit drei Nachkommastellen in verschiedenen TextBoxen anzeigst:

Private Sub UserForm_Initialize()
    Dim i As Integer
    i = 0 ' Beispiel für Zeilenindex
    TextBox1.Value = Format(Cells(14 + i, 1).Value, "0.000")
    TextBox2.Value = Format(Cells(14 + i, 2).Value, "0.000")
    TextBox3.Value = Format(Cells(14 + i, 3).Value, "0.000")
End Sub

Tipps für Profis

  • Verwende benutzerdefinierte Formatierungen: Du kannst die Formatierung anpassen, um unterschiedliche Darstellungen zu erreichen, z.B. für Währungen oder Prozentsätze.

  • Dynamische Anpassungen: Überlege, wie du den Zeilenindex i dynamisch anpassen kannst, um verschiedene Daten anzuzeigen, abhängig von Benutzerinteraktionen.

  • Debugging: Nutze die Debugging-Tools im VBA-Editor, um sicherzustellen, dass deine Werte korrekt geladen werden und um mögliche Fehlerquellen zu identifizieren.


FAQ: Häufige Fragen

1. Frage Wie kann ich sicherstellen, dass immer drei Nachkommastellen angezeigt werden, auch wenn die Zahl weniger Nachkommastellen hat?

Antwort: Verwende die Format-Funktion mit dem Formatstring "0.000" in deinem VBA-Code. Dies stellt sicher, dass immer drei Nachkommastellen angezeigt werden.

2. Frage Warum funktioniert die .Text-Eigenschaft nicht immer wie erwartet?

Antwort: Die .Text-Eigenschaft gibt den angezeigten Wert der Zelle zurück, der von der Zellenformatierung abhängt. Wenn die Zelle beispielsweise als Zahl formatiert ist, könnte es sein, dass nicht alle Nachkommastellen angezeigt werden.

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