Zellenformat von Text in Zahl umwandeln ? ? ?

[Jimmy]

Hi,

ich habe ein kleines Verständnisproblem mit den Zellenformaten in Excel
2003.

Unter Format --> Zellen -->Zahlen kann man zwar normalerweise die Formate
einstellen, aber ich habe öfters Excel-Tabellen, in denen das nicht
ausreicht. Das Zellenformat ist weiterhin Text !
Ich muss dann den entsprechenden Bereich markieren und auf ein schwarzes
Ausrufezeichen auf einem gelben Rechteck daneben klicken, dass als kleines
Symbol automatisch eingeblendet wird , und dann "in Zahl umwandeln"
auswählen.
Anschließend werden die Zellen in eine Zahl umgewandelt.

Ich wüßte gerne, was es damit auf sich hat und wie man diesen Prozess mit
VBA programmiert.

Vielen Dank im Voraus
Gruß
Jimmy

[Frank Kabel]

Hi Jimmy
Wenn die Zahlen vorher als Text formatiert waren reich nur die
Umformatierung nicht aus. Du brauchst aber kein VBA um das
hinzubekommen. Gehe wie folgt vor:
1. Ändere das Format in ein Zahlenformat
2. Gib die Zahl 1 in eine beliebige leere Zelle ein
3. Kopiere diese Zelle (CTRL+C)
4. Markiere die Zellen, die umgewandelt werden sollen
5. Gehe in das menu 'Bearbeiten - Inhalte einfügen' und wähle die
Aktion 'Multiplizieren' aus

--
Regards
Frank Kabel
Frankfurt, Germany

[anon...@discussions.microsoft.com]

Hallo und Healu aus Düsseldorf!
Der Effekt ist mir auch aus älteren Versionen von Excel
bekannt: Ich habe mir nach dem Import immer mit der
Zellenfunktion "=wert(BETROFFENEZELLE)" geholfen und dann
das Ergebnis wieder als WErt eingefügt, nachdem ich die
Zellen in Datenformat Zahl umgewandelt habe. In VBA müsste
die Funktion "CDbl(UMZUWANDELNDER WERT)" helfen, der
jedoch einen Fehler verursacht, wenn der Ursprungswert
(als String) nicht in Gänze in eine Zahl vom Typ Double
umgewandelt werden kann. Hier bin ich aber kein
Spezialist!!!
Ich hoffe es hilft

Gruss
Michael
>-----Originalnachricht-----

>.
>

[Thomas Ramel]

Grüezi Jmmy

Jimmy schrieb:

>
> Unter Format --> Zellen -->Zahlen kann man zwar normalerweise die Formate
> einstellen, aber ich habe öfters Excel-Tabellen, in denen das nicht
> ausreicht. Das Zellenformat ist weiterhin Text !
> Ich muss dann den entsprechenden Bereich markieren und auf ein schwarzes
> Ausrufezeichen auf einem gelben Rechteck daneben klicken, dass als kleines
> Symbol automatisch eingeblendet wird , und dann "in Zahl umwandeln"
> auswählen.
> Anschließend werden die Zellen in eine Zahl umgewandelt.
>
> Ich wüßte gerne, was es damit auf sich hat und wie man diesen Prozess mit
> VBA programmiert.

Ich habe mir zu diesem Zweck das folgende Makro geschrieben und mit einem
Button in der Symbolleiste verknüpft:

Sub TextSpalten_ins_Zahlenformat()
'Wandelt als Text vorliegende Zahlenwerte in 'echte' Zahlen um
'Spaltenbereich markieren (auch zu viele) und starten
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).NumberFormat = "General"
Columns(Spalte.Column).TextToColumns
Next
End Sub

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win 2000Pro SP-4 / xl2000 SP-3]