Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Als Text gespeicherte Zahlen umwandeln - in eine Zahl
zurück: Button - Makro in Personl anstatt in Modul1 der Datei weiter: Bedingte Formatierung einer Zelle NUR für einen Buchstaben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 17:53
Rufname:
Wohnort: Leipzig

Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi Jungs,

ich hab das Internet schon abgegrast und auch einige Sachen versucht.

Und zwar zieh ich mir Daten aus dem Netz.
Das sieht dann wie folgt aus


Bild 1

So wenn ihr hinseht, erkennt man schon die kleine Fahne. Aber gleich mehr dazu.
Da das Komma im Deutschen ja Leider so angezeigt wird, ist die ganze Zahl etwas falsch. Es soll Beispielsweise nicht 1,473 heißen sondern 1.473 (Für Tausend, also die Englische Schreibweise)

Nun hab ich das mit VBA automatisiert

Code:
For Each Zelle In Bereich
        With Zelle
            .NumberFormat = "@"
            .Value = Replace(Zelle, ",", ".")
        End With
    Next Zelle


Sieht dann abschließend wie folgt aus


Bild 2

Überall sind kleine Fähnchen zu erkennen.
Natürlich kann ich jetzt immer auf "In Zahl Umwandeln" klicken aber das dauert ja ewig.

Nun meine Frage, wie erreiche ich genau das was Excel mir vorschlägt? Also wenn ich auf "In Zahl Umwandeln" klick, funktioniert es nämlich perfekt.

VBA spielchen wie

.Value = .Value
oder .Value * 1

Hab ich schon durch... Funktioniert nicht

Lieben Dank

PS: ich kann leider das unterste Attachment nicht löschen... sorry Confused



Bild1.jpg
 Beschreibung:
 Dateigröße:  26.25 KB
 Angeschaut:  1395 mal

Bild1.jpg


slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2012, 18:10
Rufname:


AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi
probier mal folgendes:
wenn das alles Ganzzahlen sein sollen, dann ersetze einfach das Komma durch Nichts:
Code:
Cells.Replace ",", "", xlpart

(der Code bearbeitet alle Zellen gleichzeitig)
den Tausenderpunkt fügst du dann über das Zahlenformat "0.000" ein.
da man immer das Zahlenformat ändern und dann den Wert eintragen sollte, sieht der Code dann so aus:

Code:
Cells.Numberformat = "#,##0"
Cells.Replace ",", "", xlpart

denke immer daran, wenn beim Umwandeln von Text in Zahl seltsame Sachen passieren, die in Excel funktionieren und in VBA nicht, daß Excel deutsch und VBA englisch spricht.
Gruß Daniel
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 18:22
Rufname:
Wohnort: Leipzig

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hey Daniel,

Dank für die Schnelle Antwort. Funktioniert aber leider nicht wirklich.
Die Daten werden mit dem Typ Variant ausm Netz geladen. Es ist also keine Ganzzahl, sondern ich arbeite mit Arrays.

Mit deiner Methode schauts dann so aus ^^



Gruß

rabie

PS: Hab mal die Daten angehängt



Mappe1.xlsx
 Beschreibung:

Download
 Dateiname:  Mappe1.xlsx
 Dateigröße:  8.53 KB
 Heruntergeladen:  23 mal

slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2012, 18:42
Rufname:

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi
Zitat:
Die Daten werden mit dem Typ Variant ausm Netz geladen. Es ist also keine Ganzzahl, sondern ich arbeite mit Arrays.

das hat keinen zusammenhang, ein Array kann jeden Variablentyp annehmen.
Außerdem stehen deine Daten in Excelzellen, dh. auch nix Array.
Gruß Daniel
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 18:45
Rufname:
Wohnort: Leipzig


AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Ja schon, ich übertrage sie ja ins Excel und Excel checkt nicht was es damit machen soll... also klatscht es erstmal so rein wie Excel es aus dem Array bekommt

naja muss ichs halt mit kommas lassen Sad
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Feb 2012, 18:50
Rufname: Phelan

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

1. Dann säuber den Inhalt des Arrays bevor du es in die Zellen schreibst.

2. Wenn du "echte" Zahlen haben möschtest dann must du mit den "Kommas" rechnen.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 18:57
Rufname:
Wohnort: Leipzig

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi Phelan XLPH,

ist vleicht blöd aber wie "säuber" ich denn ein Array? Rolling Eyes

Mein Gedanke der Threaderstelllung war jetzt auch eher in der Richtung...

Die Excell schafft ja die richtige Abhilfe, wenn man es jedes mal per Hand macht. Nun muss doch genau die Tätigkeit, die Excell da macht, auch automatisiert werden können ...?

Dank & Gruß

Ps: ich rechne nicht mit den Zahlen

Hintergrund ist eigentlich nur der, dass in Excel unter "Start" - "Bedingte Formatierung" - "Datenbalken" eine geile Übersicht liefert. Aber nur wenn es eine Zahl ist. und die Darstellung halt in 1000er sein soll wie im Englischen.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2012, 18:59
Rufname:

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Zitat:
Ja schon, ich übertrage sie ja ins Excel und Excel checkt nicht was es damit machen soll... also klatscht es erstmal so rein wie Excel es aus dem Array bekommt

ja und?
du kannst es ja immer noch korrigeren, wenn es in den Zellen steht.
Beispielsweise mit .Replace oder Text in Spalten (hier kannst du bei der Umwandlung explizit vorgeben, welche Zeichen Dezimal- und Tausender-Trennzeichen sind, so das dein Text auf jeden Fall korrekt in echte Zahlen umgewandelt wird).
Wenn in den Zellen mal echte Zahlen stehen, kannst du das Erscheinungsbild einfach über das Zahlenformat anpassen (mit/ohne Tausender- Dezimaltrennzeichen)

Gruß Daniel
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Feb 2012, 19:15
Rufname: Phelan

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Markier alle und wandle dann alle in Zahlen um. Dann sind die Fähnchen weg.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 19:41
Rufname:
Wohnort: Leipzig

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hey Slowboarder, danke für den guten Ansatz

ich versuch mal noch bisl...evtl klappts
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 20:56
Rufname:
Wohnort: Leipzig

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Okay ich habs jetzt in 2 Schritten hinbekommen

Wie Slowboarder sagte sollte ich bereits beim Array in die Zelle einlesen die Sache formatieren, dazu hab ich einen kleinen Taschenspielertrick benutzt lach

Code:
wksSheet.Cells(lngLastRow + 1, 5).Value = varArrTMP(UBound(varArrTMP) - 16) * 1
Cells.NumberFormat = "#.###"


dadurch stehts dann so wie bei deinem ersten genannten Versuch oben (,0)

Dann lass ich ganz unten also wenn alles eingelesen ist nochmal folgendes laufen

Code:
Set Bereich = Range("C2:J5")
   
    For Each Zelle In Bereich
        With Zelle
            .NumberFormat = "General"
            .NumberFormat = "#,###"  'englische Schreibweise
 End With
    Next Zelle


Das einzige was jetzt ist... eine 0 ist leer ^^ aber damit kann ich leben

Gruß
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2012, 21:09
Rufname:

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi
kannst du mir mal erklären, warum du in einer Schleife für jede Zelle einzeln das Zahlenformat änderst und nicht gleich direkt für den ganzen Zellbereich?
machst du das ohne VBA von Hand auch?

merke dir einfach, alles, was du ohne VBA von Hand machen kannst, kannst du auch mit VBA machen und der Weg, der ohne VBA der schnellste ist, ist meistens auch mit VBA der Schnellste.

Gruß Daniel
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 21:17
Rufname:
Wohnort: Leipzig

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Gute Frage Laughing

Ich habs jetzt so gemacht, nach deinem Vorbild Cool

Cells.NumberFormat = "General"
Cells.NumberFormat = "#,###"

Gruß
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2012, 21:23
Rufname:

AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Hi
ich hatte aber ein anderes Zahlenformat vorgeschlagen, probier das mal aus.
dann wird auch deine 0 sichtbar.
Gruß Daniel
rabie
Ich lerne von Profis


Verfasst am:
01. Feb 2012, 21:59
Rufname:
Wohnort: Leipzig


AW: Als Text gespeicherte Zahlen umwandeln -  in eine Zahl - AW: Als Text gespeicherte Zahlen umwandeln - in eine Zahl

Nach oben
       Version: Office 2007

Superst Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: 2 Daten miteinander vergleichen, wenn gleich dann Text 1 BennyII 4347 11. Dez 2004, 12:00
ae 2 Daten miteinander vergleichen, wenn gleich dann Text
Keine neuen Beiträge Excel Formeln: Text in andere Tabelle übertragen 2 freddy-krueger 3737 02. Dez 2004, 11:16
freddy-krueger Text in andere Tabelle übertragen
Keine neuen Beiträge Excel Formeln: Einheiten umwandeln 4 Skylla 2730 22. Okt 2004, 09:54
Skylla Einheiten umwandeln
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: Feld in Wenn-Dann-Fomel nur berücksichtigen, wenn Zahl drin 6 Solario 2517 07. Okt 2004, 12:48
chrizz Feld in Wenn-Dann-Fomel nur berücksichtigen, wenn Zahl drin
Keine neuen Beiträge Excel Formeln: Zahlen aus gemischtem Textfeld isolieren? 4 Newbiee 2731 27. Sep 2004, 22:59
fl618 Zahlen aus gemischtem Textfeld isolieren?
Keine neuen Beiträge Excel Formeln: speziell Zahlen runden für Schulnoten 9 superloll 4938 26. Sep 2004, 18:58
Arnim speziell Zahlen runden für Schulnoten
Keine neuen Beiträge Excel Formeln: wenn zahl kleiner als null dann "TEXT 3 notator 3769 11. Sep 2004, 12:49
notator wenn zahl kleiner als null dann "TEXT
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Negative Zahlen 1 mika2002 604 06. Aug 2004, 08:15
steve1da Negative Zahlen
Keine neuen Beiträge Excel Formeln: Uhrzeit von - bis umwandeln in Unterrichtsstunden (45 Min.) 3 JBraeunig 1921 21. Jul 2004, 10:33
Gast Uhrzeit von - bis umwandeln in Unterrichtsstunden (45 Min.)
Keine neuen Beiträge Excel Formeln: Text und fortlaufende Nr. in eine Zelle 2 Strebe nach Können 1013 16. Jul 2004, 19:19
Strebe nach Können Text und fortlaufende Nr. in eine Zelle
Keine neuen Beiträge Excel Formeln: Datum im Textformat zu JJJJ-MM-TT umwandeln 7 riffraff_1960 5072 12. Jul 2004, 14:25
Kuwe Datum im Textformat zu JJJJ-MM-TT umwandeln
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum