Zellen einfärben, die Daten in einem ausgewählten Bereich enthalten

Question

Kann jemand folgendes realisieren?

Ich habe eine Reihe von Zellen in einer Excel-Tabelle ausgewählt. Nach dem Drücken einer Tastenkombination muss jede Zelle im ausgewählten Bereich, der Daten enthält, eine Füllfarbe rot haben.

Es scheint keine Standard-Excel-Funktionalität dafür zu geben, aber vielleicht kann es mit VBA gemacht werden?

Leider ist der folgende Code funktioniert nicht wie erwartet:

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Not cell.Value Is Nothing Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 

End Sub 

Irgendwelche Vorschläge zu diesem Thema sind sehr willkommen.

Answer 1

Die Andeutung von Tim Williams tat den Trick. Vielen Dank!

Der folgende Code funktioniert:

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Len(cell.Value) > 0 Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 
End Sub