kann man mit einem VBA Code alle z.B. hellblauen Zellen eines Blattes suchen und anschließend markieren lassen?
Habe jede Menge hellblaue Zellen die ich mit VBA schützen und entschützen muß.
Vorab vielen Dank.
mfg
Klaus
Sub Klaus()
Dim c As Range, Bereich As Range, ErgBereich As Range
Dim Adr As String
Application.ScreenUpdating = False
Adr = "A1"
On Error Resume Next
Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address
On Error GoTo 0
Set Bereich = Range("A1:" & Adr)
For Each c In Bereich
If c.Interior.ColorIndex = 41 Then
Set ErgBereich = c
Exit For
End If
Next c
If ErgBereich Is Nothing Then
MsgBox "Nichts gefunden !", vbOKOnly + vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
Else
For Each c In Bereich
If c.Interior.ColorIndex = 41 Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
Set Bereich = Nothing
End If
Application.ScreenUpdating = True
End Sub
Sub Hellblau()
Dim c As Range
ActiveSheet.Unprotect
'Entsperren
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 41 Then
c.Locked = False
End If
Next
'hier deine Aktionen
'wieder Sperren
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 41 Then
c.Locked = True
End If
Next
ActiveSheet.Protect
End Sub