nicht gesp. Zellen färben - nur ein Blatt!
29.08.2003 15:03:32
Tanja
folgendes Makro färbt mir alle nicht gesperrten Zellen aller Blätter meiner Arbeitsmappe gelb!
Sub offeneZellenFärben()
Dim RaZelle As Range
Dim InI As Integer
For InI = 1 To Sheets.Count
Worksheets(InI).Unprotect
For Each RaZelle In Worksheets(InI).UsedRange
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 19
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
Worksheets(InI).Protect
Next InI
End Sub
Wie krieg ich es hin, dass der Vorgang nur im aktiven Blatt abläuft?
Vielen Dank für die Hilfe im Voraus!
Gruß
Tanja