Excel Formeln
Excel Hilfe
Excel Makro / VBA
001 Zellen mit Text einfärben





Programmzeilen zum Kopieren:
Sub TexteMarkieren()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If IsNumeric(Zelle.Value) = False Then
Zelle.Interior.ColorIndex = 6
Else
Zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next Zelle
End Sub

Wollen Sie statt Gelb (6) eine andere Farbe, ersetzen Sie die Zahl mit dem entsprechenden Wert.
Die Tabelle (Color-Index) der gängigsten Farben finden Sie unter 002 Farbtabelle / Color-Index

Excel Makro / VBA