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