Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Strings, die wie Zahlen aussehen, in Zahlen umwandeln

Gruppe

Zeichenfolge

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.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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