wie kann ich per VBA Zellen (nur von einem Sheet), die einen Namen haben, farblich markieren? Dachte an sowas ähnlichen wie: Cells.HasFormula.
Hat jemand einen heissen Tipp?
Danke und einen schönen Nachmittag
Eule
Sub Namen_Hervorheben()
Dim na As Name, n As String
Const Tabelle = "Tabelle2" 'nur diese Tabelle berücksichtigen
Debug.Print ActiveSheet.Names.Count
For Each na In Names
n = UCase(na.RefersToLocal)
With Sheets(Tabelle)
If n Like "=" & UCase(Tabelle) & "*" Then
.Range(Split(n, "!")(1)).Interior.ColorIndex = 3
End If
End With
Next
End Sub
Sub NamesColor()
Dim namNames As Name
For Each namNames In ActiveWorkbook.Names
' Hier Tabelle 1 an deinen Namen anpassen.
If Range(namNames.Name).Parent.Name = "Tabelle1" Then
Range(namNames.Name).Interior.ColorIndex = 11
End If
Next namNames
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