Text zu Zahl formatieren (VBA)

11.11.1998


Spielen Sie folgendes Fallbeispiel nach:
(bitte die Reihenfolge einhalten)

- Formatieren Sie einen bestimmten Zellbereich als Text
- F�gen Sie nun in diesen Bereich einige Werte ein (Zahlen)
- Versuchen Sie nun diesen Bereich als Standard zu formatieren

Und ? Excel formatiert die Zellen zwar, jedoch bleiben die Werte
weiterhin alle linksb�ndig bestehen, also als Text.
Abhilfe kann man schaffen, indem man nun Zelle f�r Zelle erneut
bearbeitet, also F2 - Enter - F2 - Enter - F2 - Enter usw.,
bis einem die Finger gl�hen.

Keine Angst, die Blasen an den Finger k�nnen Sie sich sparen,
und Ihr Azubi bleibt davon auch verschont ;-)

Hier die L�sung als Makro:

Sub Text_zu_Zahl()
   For Each Zelle In Worksheets("Tabelle1").Range("A1:D10")
      s = Zelle.Value
      If s <> "" And IsNumeric(s) Then
         s = s * 1
         Zelle.Value = s
      End If
   Next Zelle
End Sub

Die Tabellenbezeichnung und den Zellbereich passe Sie
bitte Ihren Bed�rfnissen an.

Ich m�chte mich an dieser Stelle nochmals bei Bernd bedanken,
der mir den Tip des Multiplizierens mit 1 des Zellwertes gegeben hat.
Auch er besch�ftigt sich intensiv mit Excel und hat es echt drauf !
Hier gibt es mehr von ihm: EXCEL Homepage