0160-93 82 19 37 | Nehmen Sie 
Zellen mit Formeln, Zahlen oder Text farbig markieren
101074
Der VBA-Code in Variante 1 markiert alle Zellen im benutzten Bereich farbig, die eine Formeln enthalten. Die Variante 2 prüft den Zelleninhalt auf Zahlen und die Variante 3 markiert alle Zellen mit Text farbig.
Variante 1: Formeln markieren
Public Sub formeln_markieren()
Dim zelle As Range
'den benutzen Bereich selektieren
UsedRange.Select
'den selektierten Bereich auf Formeln prüfen
'und den Zellhintergrund rot einfärben
For Each zelle In Selection
If zelle.HasFormula = True Then
zelle.Interior.ColorIndex = 3
End If
Next zelle
Range("A1").Select
End Sub
Variante 2: Zahlen markieren
Public Sub zahlen_markieren()
Dim zelle As Range
'den benutzen Bereich selektieren
UsedRange.Select
'den selektierten Bereich auf Zahlen prüfen
'und den Zellhintergrund rot einfärben
For Each zelle In Selection
If IsNumeric(zelle.Value) And Not IsEmpty(zelle.Value) Then
zelle.Interior.ColorIndex = 3
End If
Next zelle
Range("A1").Select
End Sub
Variante 3: Text markieren
Public Sub text_markieren()
Dim zelle As Range
'den benutzen Bereich selektieren
UsedRange.Select
'den selektierten Bereich auf Text prüfen
'und den Zellhintergrund rot einfärben
For Each zelle In Selection
If Not IsNumeric(zelle.Value) And Not IsEmpty(zelle.Value) Then
zelle.Interior.ColorIndex = 3
End If
Next zelle
Range("A1").Select
End Sub
Dieses Makro kann nützlich sein, um alle Zellen mit Formeln, Zahlen oder Text auf den ersten Blick zu erkennen!
