Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zahl konvertieren international

Text in Zahl konvertieren international
01.06.2004 01:27:24
Folker
Hallo,
ich möchte einen Wert aus einer Zelle zuverlässig in eine Excel-Dezimalzahl konvertieren. Der Wert in der Zelle kann eine Zahl oder ein Text und das Trennzeichen ein , oder ein . sein, je nach den Regional Settings. Meine Idee war den Wert als Text auszulesen. Das Trennzeichen, falls es ein . ist durch ein , zu ersetzen, das Dezimaltrennzeichen in Excel auf , und das Tausendertrennzeichen auf . zu setzen um unabhängig von den Regional Settings zu sein und dann den Wert als Zahl wieder in die Zelle zu schreiben.
Damit das funtkioniert muss ich den Text in eine Zahl umwandeln, was ich mit
text = "11,22"
CDbl(text)
erledige. Wenn die Regional Settings auf Deutsch stehen kommt da auch "11,22" raus. Stehen sie aber auf amerikanisch kommt auf einmal "1122" raus. Wieso?
Kennt jemand eine Funktion einen Text zuverlässig in eine Dezimalzahl zu verwandeln oder eine ganz andere Möglichkeit das Problem zu lösen?
Vielen Dank
Folker

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zahl konvertieren international
Christoph
Hallo Folker,
mit application.decimalseparator bzw. .thousandsseparator kannst Du die aktuellen Einstellungen auslesen und entsprechend behandeln.
Bei Deinem Beispiel kommt 1122 raus, da das Komma ja das Tausendertrennzeichen ist und somit ignoriert wird.
Gruß
Christoph
AW: Text in Zahl konvertieren international
01.06.2004 09:54:59
Folker
Eben nicht. Ich setze ja die Regional Settings extra auf , als decimalseparator und . als thousand separator damit ich mit . und , kein Problem habe, aber am Ende kommt dann doch nicht die richtige Zahl raus. Hier mal mein Code:

Sub zahlen()
Dim dec As String
Dim thou As String
Dim sys As Boolean
Dim dot As Integer
Dim rng As Range
Dim data As Range
Dim text As String
On Error Resume Next
Set data = Range("A1:A50")
data.NumberFormat = "@"
With Application
dec = .DecimalSeparator
thou = .ThousandsSeparator
sys = .UseSystemSeparators
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False
End With
For Each rng In data
text = rng.Value
If text <> "" Then
dot = findDot(text)
rng.NumberFormat = "0,00"
If dot > 0 Then text = Application.Replace(text, dot, 1, ",")
rng.Value = CDbl(text)
End If
Next rng
With Application
.DecimalSeparator = dec
.ThousandsSeparator = thou
.UseSystemSeparators = sys
End With
End Sub




Function findDot(ByVal text)
On Error Resume Next
findDot = Application.WorksheetFunction.Find(".", text)
End Function

Anzeige
AW: Text in Zahl konvertieren international
Martin
Hallo Folker,
versuch doch mal folgenden Ansatz ohne VBA. Dein Text "11,22" bzw, "11.22" steht in A1, in B1 folgende Formel:
=1*WECHSELN(A1;".";",")
Gruß
Martin Beck

301 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

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