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