Thema: Zahlen werden nicht als Zahlen erkannt | Herbers Excel-Forum

Und noch ein Problem Phänomen:
ich habe hier Datenmaterial in Excel, welches aus einem anderen EDV-system stammt.
https://www.herber.de/bbs/user/66024.xls
Excel interpretiert die Zahlen als Text (erkennbar an der linksbündigkeit, da hilft auch kein anderes Zahlenformat) und somit lassen sich die Daten nicht auswerten. Wenn ich nun einmal kurz in den Editiermodus springe...schwupp schon erkennt Excel die Daten als Zahlen.
Nun muss iuch das mit tausenden von Zahlen machen.
Wie lässt sich das ganze vereinfachen?
(kopieren/einfügen hilft da leider auch nicht)
Danke Gruß,
Wo.

hi,
lass mal dieses makro laufen, entfernt Chr(160), sieht aus wie ein leerzeichen...
gruß
robert

Sub LeerzeichenRaus()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Selection
With Bereich
.Replace What:=" ", Replacement:="", _
LookAt:=xlPart, MatchCase:=True
.Replace What:=Chr(160), Replacement:="", _
LookAt:=xlPart, MatchCase:=True
For Each Zelle In Bereich
Zelle.Value = Zelle.Value * 1
Next Zelle
End With
End Sub

hi Wo.?, markiere den bereich und klicke auf das kleine ausrufezeichen dort findest du "In eine Zahl umwandeln" ....
cu jörg

Hallo
schreibe in eine leere Zelle eine 1
Diese Zelle kopierst Du.
Markiere nun Deinen Bereich und wähle Inhalte einfügen: mutiplizieren
Gruß Matthias

....das Gute liegt manchmal so nah....das ist wohl der simpelste Ansatz!
Und funktioniert!! Super!!
Danke an alle zu allen Lösungsansätzen!!!!
Wie immer: Super-Forum!!
Gruß,
Wo.

Hi
du kannst auch dies drüberlaufen lassen:

Sub Zahl_aktivieren()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If Not IsEmpty(C) Then
If IsNumeric(C) Then C = C * 1
End If
Next
End Sub

Grüße Petra