Re: VBA: Text -> Zahl
20.08.2002 15:57:51
Uno
For Each Zelle In Worksheets("Tabelle1").Range("B1:B10")
s = Zelle.Value
If s <> "" And IsNumeric(s) Then
s = s * 1
Zelle.Value = s
End If
Next ZelleIch weis nicht ob dir das Hilft, aber bei mir hat diese wunderbar funktioniert...
In Range musst du halt jedesmal die Zellen, Bzw. die Bereiche eintragen, dann erspart dir dieses Makro das 1000mal F2 und Enter drücken. Mehrfachaufrufe sind dabei kein Problem, ich habe diese Code auch mehrmals hintereinander geschrieben, damit die Datenmarkierung etwas übersichtlicher wurde.
Kannst mir ja mal bescheid geben, ob es geklappt hat.
Gruß Uno