Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen in TextBox im UserForm Runden

Forumthread: Zahlen in TextBox im UserForm Runden

Zahlen in TextBox im UserForm Runden
20.11.2005 16:09:18
Gregor
Hallo,
mein Problem ist:
Zahlen werden so 0,114567 dargestellt,
ich möchte gerne runden 0,11
konkret:
ein UserForm mit TextBox
der Inhalt dieser wird aus einer Zelle in einer Tabelle gelesen
TextBox301.Value = Sheets("Tabelle").Range("f18")
der Inhalt der Zelle ist nicht mit Fuktion gerundet,
soll auch nicht, da sonst die folgenden Berechnungen nicht stimmen,
Wie bekomme ich nun den Inhalt im UserForm TextBox gerundet?
Gregor
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 17:05:48
Peter
Hallo Gregor,
so sollte es gehen
TextBox301.Text = Format(Sheets("Tabelle").Range("F18"), "##0.00")
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 19:18:33
Gregor
Hallo Peter,
das funktioniert :)
Ich war mit unserm Sohn im Planetarium und habe dann noch gegessen,
daher erst jetzt meine Antwort, Danke.
Gibt es auch noch eine Möglichkeit,
alle TextBox'en in meinem UserForm
zu runden?
Und kann die Rundung bestimmt werden,
aus 0,1142 mach 0,12 ?
Aber sonst bin ich super glücklich über die schnelle Hilfe,
ich habe 3Stunden im Archiv geforscht und verschiedenes versucht,
bis ich mich entschloss die Frage hier zu stellen.
Nächstes mal melde ich mich schneller, das spart viel Zeit und Mühe.
Dank Dir Peter :)
Gregor
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 21:08:17
Peter
Hallo Gregor,
hier wird nur formatiert, nicht direkt gerundet.
Aber ein Wert von 0,115 wird als 0,12 ausgegeben, bis 0,1149 bleibt es bei 0,11.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 21:13:30
Gregor
Schade,
ich bin gerade dabei die TextBox'en zu ändern
von TextBox315.Value = Sheets("Tabelle").Range("a34")
in TextBox315.Value = Format(Sheets("Tabelle").Range("a34"), "##0.00")
das ist sehr müßig
Gregor
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 22:33:03
Gregor
Hallo,
nu habe ich noch ein Problem,
wenn ich das so mache ist es ok solange ich die Daten nur auslese
aber ich gebe über mein UserForm noch Zahlen ein

Private Sub TextBox312_Change()
Sheets("Tabelle").Range("b32").Value = TextBox312.Value
Aktualisieren
End Sub

das geht gut, solange ich Zahlen ohne Komma verwende,
sobald ich eine Zahl mit Komma eingebe, wird diese in der Tabelle als Text gespeichert und bei
TextBox306.Text = Format(Sheets("Tabelle").Range("b29"), "##0.00")
sind eingaben hinterm komma gar nicht möglich
wenn ich
TextBox306.Text = Format(Sheets("Tabelle").Range("b29"), "###.##")
schreibe können Eingaben hinterm Komma gemacht werden
...
Ich habe mal die Datei als Muster hochgeladen
https://www.herber.de/bbs/user/28551.xls
Gregor
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 19:18:54
Gregor
Hallo Peter,
das funktioniert :)
Ich war mit unserm Sohn im Planetarium und habe dann noch gegessen,
daher erst jetzt meine Antwort, Danke.
Gibt es auch noch eine Möglichkeit,
alle TextBox'en in meinem UserForm
zu runden?
Und kann die Rundung bestimmt werden,
aus 0,1142 mach 0,12 ?
Aber sonst bin ich super glücklich über die schnelle Hilfe,
ich habe 3Stunden im Archiv geforscht und verschiedenes versucht,
bis ich mich entschloss die Frage hier zu stellen.
Nächstes mal melde ich mich schneller, das spart viel Zeit und Mühe.
Dank Dir Peter :)
Gregor
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 19:18:57
Gregor
Hallo Peter,
das funktioniert :)
Ich war mit unserm Sohn im Planetarium und habe dann noch gegessen,
daher erst jetzt meine Antwort, Danke.
Gibt es auch noch eine Möglichkeit,
alle TextBox'en in meinem UserForm
zu runden?
Und kann die Rundung bestimmt werden,
aus 0,1142 mach 0,12 ?
Aber sonst bin ich super glücklich über die schnelle Hilfe,
ich habe 3Stunden im Archiv geforscht und verschiedenes versucht,
bis ich mich entschloss die Frage hier zu stellen.
Nächstes mal melde ich mich schneller, das spart viel Zeit und Mühe.
Dank Dir Peter :)
Gregor
Anzeige
AW: Zahlen in TextBox im UserForm Runden
20.11.2005 19:26:20
Gregor
Wie ist das passiert?
Ich habe auf Absenden Gedrückt und eine Aktion erwartet,
dann noch mal und noch mal, dabei ist der Beitrag wiederholt eingetragen worden,
im Sekunden Takt.
Kann das wieder gelöscht werden?
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 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
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Anzeige
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zahlen in TextBox im UserForm Runden

Schritt-für-Schritt-Anleitung

Um Zahlen in einer TextBox im UserForm zu runden, folge diesen Schritten:

  1. Öffne das Visual Basic for Applications (VBA) Editor: Drücke ALT + F11 in Excel.

  2. Finde dein UserForm: Wähle das UserForm aus, in dem du die TextBox hast.

  3. Füge den folgenden Code hinzu, um den Wert der TextBox zu formatieren:

    Private Sub UserForm_Initialize()
   TextBox301.Text = Format(Sheets("Tabelle").Range("F18"), "##0.00")
End Sub

  4. Runde die Werte in mehreren TextBoxen: Um alle TextBoxen zu runden, kannst du eine Schleife verwenden:

    Private Sub RundenAlleTextBoxes()
   Dim ctl As Control
   For Each ctl In Me.Controls
       If TypeName(ctl) = "TextBox" Then
           ctl.Text = Format(CDbl(ctl.Text), "##0.00")
       End If
   Next ctl
End Sub

  5. Runde beim Eingeben von Werten: Um sicherzustellen, dass der eingegebene Wert gerundet wird, kannst du den folgenden Code in das Change-Ereignis der TextBox einfügen:

    Private Sub TextBox312_Change()
   Sheets("Tabelle").Range("B32").Value = Round(TextBox312.Value, 2)
End Sub

Häufige Fehler und Lösungen

  • Fehler: Zahlen werden als Text gespeichert
    Lösung: Stelle sicher, dass du die Werte als Double konvertierst, bevor du sie in die Zelle schreibst. Beispiel:

    Sheets("Tabelle").Range("B32").Value = CDbl(TextBox312.Value)

  • Fehler: Eingaben hinter dem Komma sind nicht möglich
    Lösung: Verwende das richtige Format für die TextBox. Zum Beispiel:

    TextBox306.Text = Format(Sheets("Tabelle").Range("B29"), "###.##")

Alternative Methoden

Falls du die Werte nicht nur formatieren, sondern auch tatsächlich runden möchtest, kannst du die Round-Funktion verwenden. Diese kann wie folgt angewendet werden:

Dim gerundeterWert As Double
gerundeterWert = Round(Sheets("Tabelle").Range("F18").Value, 2)
TextBox301.Text = gerundeterWert

Praktische Beispiele

Hier sind einige nützliche Anwendungsbeispiele:

  1. Runden eines spezifischen Wertes:

    TextBox301.Text = Format(Round(Sheets("Tabelle").Range("F18").Value, 2), "##0.00")

  2. Runden beim Speichern der Daten:

    Private Sub ButtonSpeichern_Click()
   Sheets("Tabelle").Range("B32").Value = Round(TextBox312.Value, 2)
End Sub

Tipps für Profis

  • Verwende CDbl() oder CStr(), um sicherzustellen, dass Daten in der richtigen Form vorliegen, bevor du Berechnungen durchführst.
  • Teste deinen Code gründlich in der Entwicklungsumgebung, bevor du ihn in einer produktiven Umgebung verwendest.
  • Dokumentiere deinen Code, um die Wartung und das Verständnis zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich die Rundungsgenauigkeit ändern?
Du kannst die Rundungsgenauigkeit anpassen, indem du die Zahl in der Round-Funktion änderst. Zum Beispiel, Round(Wert, 3) rundet auf drei Dezimalstellen.

2. Funktioniert dies auch in Excel 365?
Ja, diese Methoden sind in allen Versionen von Excel verfügbar, die VBA unterstützen, einschließlich Excel 365.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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