Text in Zahlen umwandeln

Forumthread: Text in Zahlen umwandeln

29.12.2005 16:50:01

jan

Jetzt habe ich noch ein kleines Problem.Meine Zellen haben folgende Werte 4,0 4,3 4,2 4,0. Diese werden allerdings nicht als Zahl sondern als Text erkannt, da diese aus einer CSV kommen. Ich habe nun mit einem Makro versucht die Texte in Zahlen zu wandeln. Klappt im Makro nicht, nur wenn ich dies von hand durchführe...alle Zahlen 4,3 4,2 werden nicht gewandelt 4,0 schon.
Range("B5:T9").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.0"
Range("V1").Select
Selection.Copy
Range("B5:T9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text in Zahlen umwandeln

29.12.2005 16:53:01

jan
AW: Text in Zahlen umwandeln

29.12.2005 16:56:44

Reinhard
AW: Text in Zahlen umwandeln

29.12.2005 17:12:39

jan
AW: Text in Zahlen umwandeln

29.12.2005 18:21:24

Reinhard
AW: Text in Zahlen umwandeln

29.12.2005 18:49:08

Koenig

AW: Text in Zahlen umwandeln

29.12.2005 16:53:01

jan

Inhalt der Zelle ist eine 1!!

AW: Text in Zahlen umwandeln

29.12.2005 16:56:44

Reinhard

Hi jan,
probiers mal so:
for each Zelle in Range("B5:T9)
Zelle=zelle*1
next Zelle
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.

AW: Text in Zahlen umwandeln

29.12.2005 17:12:39

jan

Bleibt leider ein Text und keine Zahl :o(

AW: Text in Zahlen umwandeln

29.12.2005 18:21:24

Reinhard

Hi jan,
ich hab hier was von Dieter Held, Bereich markieren, dann Makro starten:

sub tt()
dim Zelle as object
for each Zelle in Selection
sendkeys "{F2}", true
sendkeys "{ENTER}", true
next Zelle
end sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.

AW: Text in Zahlen umwandeln

29.12.2005 18:49:08

Koenig

Hallo Jan,
sofern Dein Dezimaltrenner ein Punkt ist und nicht ein Komma, sollte es so gehen.


Sub Text_in_Zahl()
Dim Zelle As Range
Dim var As Variant
On Error Resume Next
For Each Zelle In Selection
var = Zelle.Value
Zelle.ClearFormats
Zelle.NumberFormat = "#.###"
Next
End Sub

sonst vielleicht so


Sub Text_in_Zahl()
Dim Zelle As Range
Dim var As Variant
On Error Resume Next
For Each Zelle In Selection
var = Application.Substitute(Zelle, ",", ".")
Zelle.ClearFormats
Zelle.Value = var
Zelle.NumberFormat = "#.###"
Next
End Sub

Gruss Wilhelm

Beliebteste Forumthreads (12 Monate)

Forumthread: Text in Zahlen umwandeln

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread