Zahlen automatisch in konstante Text verwandeln

Wie Sie Zahlen per VBA als Texte eintragen

Wenn Sie eine Zahl als Text eintragen möchten, können Sie das erledigen, indem Sie vor der Eingabe der Zahl ein Hochkomma setzen, also die Tastenkombination UMSCHALT # verwenden.

Nachfolgende Ziffern oder Buchstaben interpretiert Excel als Texte. Die Eingabe von Zahlen als Texte kann für Inhalte sinnvoll sein, mit denen Sie nicht rechnen müssen. Sie hat den Vorteil, dass Excel die eingegebenen Zahlen nicht verändert. So können Sie beispielsweise auch Zahlen mit einer führenden Null (beispielsweise für Postleitzahlen) eingeben, ohne dass Excel die Null nach der Eingabe verschluckt.

Mit einem Makro können die Inhalte eines markierten Zellbereichs automatisch in Texte umwandeln. Das ist sinnvoll, wenn Sie beispielsweise Ergebnisse festhalten oder Bereiche als konstante Felder weiter verwenden möchten.

Die folgende Abbildung zeigt eine Tabelle, in der Werte aus den Spalten A und B in Spalte C zu einem Produkt zusammengefasst werden:

Per Makro können Sie diese Werte in Texte umwandeln. Dazu markieren Sie den gewünschten Zellbereich (hier: C2:C6) und rufen anschließend das folgende Makro auf:

Sub WandleZahlenUm()
Dim Wert As Range
Dim Bereich As Range
Set Bereich = Selection
For Each Wert In Bereich
 Wert.Formula = "'" & Wert.Value
Next
End Sub

Das Makro verwendet die aktuellen Werte der Zellen im markierten Bereich und trägt Sie hinter einem Hochkomma wieder in die Zelle ein. Die folgende Abbildung zeigt das Ergebnis:

Falls Sie anstelle des aktuell markierten Bereichs einen Bereich explizit festlegen möchten, ersetzen Sie die Wertzuweisung an die Variable Bereich durch den folgenden Ausdruck:

Set Bereich = Range("C2:C6")

Pass Sie den Zellbereich an Ihre Wünsche an. Indem Sie vorher Objekte vom Typ Workbook und Worksheet einsetzen, können Sie auch ganz genau festlegen, in welcher Tabelle Excel das Ersetzen durchführen soll.