Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

712to716

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Text in Zahlen umwandeln

Forumthread: Text in Zahlen umwandeln
5 Beiträge zu diesem Forumthread
Anzeige
343 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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