ich möchte gern mit einem Makro die Zellen (A2:C30) die den Namen der Sheet haben farbig z.b.
hell gelb einfärben aber auch später löschen können.
gruß
kurt k
Sub t()
Dim ar As Variant, i As Integer, rng As Range
ReDim ar(ThisWorkbook.Sheets.Count - 1) As Variant
For i = 0 To ThisWorkbook.Sheets.Count - 1
ar(i) = ThisWorkbook.Sheets(i + 1).Name
Next i
For Each rng In ThisWorkbook.Worksheets("Tabelle1").Range("A2:C30")
If IsError(Application.Match(rng, ar, 0)) Then
rng.Interior.Color = xlNone
Else
rng.Interior.Color = vbYellow
End If
Next rng
End Sub
Sub t()
Dim rng As Range
For Each rng In ThisWorkbook.Worksheets("Tabelle1").Range("A2:C30")
If rng = ActiveSheet.Name Then
rng.Interior.Color = vbYellow
Else
rng.Interior.Color = xlNone
End If
Next rng
End Sub