Zellen mit Formeln, Zahlen oder Text farbig markieren

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!

 

     sitepanel e mail Anfrage per E-Mail   |   sitepanel telephone 0151 - 164 55 914   |    sitepanel formular  Anfrage per Kontaktformular      |     Excel-Hilfeforum Hilfe-Forum

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.