Microsoft Excel

Herbers Excel/VBA-Archiv

Zahlen werden nicht als Zahlen erkannt | Herbers Excel-Forum


Betrifft: Zahlen werden nicht als Zahlen erkannt von: Wolfango
Geschrieben am: 18.11.2009 15:54:52

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.

  

Betrifft: AW: Zahlen werden nicht als Zahlen erkannt von: robert
Geschrieben am: 18.11.2009 16:04:17

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



  

Betrifft: AW: Zahlen werden nicht als Zahlen erkannt von: jockel
Geschrieben am: 18.11.2009 16:05:39

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

cu jörg


  

Betrifft: Inhalte einfügen -> mutiplizieren von: Matthias L
Geschrieben am: 18.11.2009 16:06:07

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


  

Betrifft: AW: Inhalte einfügen -> mutiplizieren von: Wolfango
Geschrieben am: 18.11.2009 16:15:07

....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.


  

Betrifft: AW: Inhalte einfügen -> mutiplizieren von: Petra
Geschrieben am: 18.11.2009 16:17:02

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


Beiträge aus den Excel-Beispielen zum Thema "Zahlen werden nicht als Zahlen erkannt"