wie kann ich alle Zellen in den Spalten E:F mit ColorIndex = 30 zu einem Bereich verbinden und mit einem Namen versehen.
Danke für Eure Hilfe.
Gruß,
Martin
Sub Name_Nach_Farbe()
Dim rng As Range
Dim rngU As Range
For Each rng In Range("E1:F56536")
If rng.Interior.ColorIndex = 30 Then
If rngU Is Nothing Then
Set rngU = rng
Else
Set rngU = Union(rngU, rng)
End If
End If
Next
ThisWorkbook.Names.Add Name:="test", RefersTo:=rngU
End Sub