Texte und Buchstaben markieren

Wenn Sie alle nicht-numerischen Inhalte in Ihren Tabellen kennzeichnen möchten, gibt es dazu mehrere Wege. Eine Variante besteht darin, die Texte über eine passende bedingte Formatierung zu kennzeichnen.

Eine andere Variante besteht darin, mit einem Makro zu arbeiten. Das folgende Makro kennzeichnet alle Textinhalte in der aktuellen Tabelle mit einer roten Hintergrundfarbe:

Sub MarkiereTexte()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
 If IsNumeric(Zelle.Value) = False Then
  Zelle.Interior.ColorIndex = 3
 Else
  Zelle.Interior.ColorIndex = xlColorIndexNone
 End If
Next Zelle
End Sub

In der Abbildung sehen Sie eine Tabelle nach dem Start des Makros. Die Hintergrundfarbe aller numerischen Inhalte ist unverändert. Alle Textinhalte haben eine rote Zellfarbe erhalten.

Wenn Sie anstelle der Farbe Rot eine andere Farbe verwenden möchten, ersetzen Sie die Zahl 3 in der Wertzuweisung an die Eigenschaft ColorIndex durch einen anderen Wert.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html