Gruppe
Allgemein
Problem
Nach einer Formatänderung von Zellen von Zahlenformaten zu Text werden die Zahlen zwar linksbündig dargestellt, verlieren ihre Zahleneigenschaft aber erst, wenn sie editiert werden. Die Routine wandelt den ausgewählten Bereich in Zahlen um.
StandardModule: Modul1
Sub Val2Text()
Dim rng As Range
For Each rng In Selection.Cells
If WorksheetFunction.IsNumber(rng.Value) Then
rng.Value = "'" & rng.Value
End If
Next rng
End Sub