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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen