Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenformatierung in TextBox

Zahlenformatierung in TextBox
18.06.2014 13:39:32
Han2883
Hallo,
ich habe die deutsche Version von Excel deswegen ist das problemlos für die Erkennung des "Komma"s wenn ich "1,23 kg" in eine Excel-Tabelle eintrage.
Aber bei der Eingabe in TextBox in Userform wird die Eingabe von "1,23 kg" als "123 kg" erkannt. Ein anderes Beispiel ist dass die Eingabe von "1.057 kg" in TextBox als "1,057 kg" erkannt wird.
Könnte mir jemand dabei helfen? Danke im voraus! :-)
Gruß
Han2883

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlenformatierung in TextBox
18.06.2014 13:42:35
Hajo_Zi
nur wenige sehen Deinen Code und sehen wie Du das erkennst.

AW: Zahlenformatierung in TextBox
18.06.2014 13:50:19
Han2883
Wie meinst du genau Hajo_Zi?
Gruß
Han2883

AW: Zahlenformatierung in TextBox
18.06.2014 13:53:28
Hajo_Zi
du hast geschrieben das er das falsch erkennt, ich bin davon ausgegangen das es Code ist der das falsch erkennt.
Ansonsten muss Du es genauer beschreiben.

AW: Zahlenformatierung in TextBox
18.06.2014 14:18:09
Han2883
Hallo Hajo_Zi,
Hier habe ich zwei Screenshots gemacht:
Userbild
Userbild
und noch das Code dazu:
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Cells(2, 2).Value = Me.TextBox1.Value
Unload Me
End Sub
Ich hoffe es wird jetzt klarer. :-)
Gruß
Han

Anzeige
AW: Zahlenformatierung in TextBox
18.06.2014 14:21:07
Hajo_Zi
du schreibst Text in die Zelle da eine TextBox Text enthält. Benutze Umwandlungsfunktionen z.B. CDBL()
Gruß Hajo

AW: Zahlenformatierung in TextBox
18.06.2014 14:46:40
Han2883
Hallo Hajo,
Danke Dir sehr! es funktioniert jetzt nachdem ich folgendes geändert habe:
Sheets("Tabelle1").Cells(2, 2).Value = CDbl(Me.TextBox1.Value)
statt:
Sheets("Tabelle1").Cells(2, 2).Value = Me.TextBox1.Value
wieder was Neues gelernt. Danke nochmal! :-)
Gruß
Han

AW: Zahlenformatierung in TextBox
18.06.2014 15:52:03
Daniel
und damit du noch was lernst:
Wenn du einen Text in eine Zelle schreibst, dann prüft Excel, ob dieser Text eine Zahl sein könnte und wenn ja, wandelt Excel diesen Text in ein Zahl um.
In einem Deutschen Excel verwendet Excel auch das Deutsche Zahlenformat mit dem Komma als Dezimal und dem Punkt als Tausenderzeichen, wenn du den Text von Hand in die Zelle eingibst.
VBA und Excel reden jedoch Englisch miteinander, dh wenn der Text von einem VBA-Makro kommt, dann wendet Excel bei der Prüfung ob es sich um eine Zahl handelt, das Englische Zahlenformat mit dem Punkt als Dezimal- und dem Komma als Tausendertrennzeichen an.
dh wenn du im Text das Komma durch den Punkt austauscht, entspricht der Text dem englischen Zahlenformat und wird dann von Excel als Zahl erkannt:
Sheets("Tabelle1").Cells(2, 2).Value = Replace((Me.TextBox1.Value, ",", ".")
die CDBL-Funktion verwendet bei der Umwandlung von Text in Zahl automatisch die Landestypischen Dezimal- und Tausenderzeichen und du übergibst dann keinen Text der von Excel gewandelt werden muss, sondern gleich die fertige Zahl.
Der Nachteil der CDBL-Funktion ist, dass sie einen Fehlerabbruch erzeugt, wenn die Textbox leer ist oder einen Text enthält, der nicht in eine Zahl wandelbar ist.
Um solche Fehlerabbrüche zu vermeiden, solltest du also eine entsprechende Prüfung einbauen, wenn du mit CDBL arbeitest: 
IF IsNumeric(me.Textbox1.text) then Sheets("Tabelle1").Cells(2, 2).Value = CDbl(Me.TextBox1.Value)
Gruß Daniel

Anzeige
AW: Zahlenformatierung in TextBox
18.06.2014 16:37:25
Han2883
Hallo Daniel,
Danke für deine Hilfe. das hat mir sehr geholfen. :-)
Gruß
Han2883

328 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 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
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
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
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4