offene Zellen MARKIEREN - Auswahlbereich
05.09.2003 13:40:55
Tanja
beziehe mich auf folgenden thread - der eigentlich ja schon abgeschlossen ist:
https://www.herber.de/forum/archiv/304to308/t304622.htm
Hier folgt der prima funktionierende Code daraus:
Sub OffeneZellenFaerbenblau()
Dim RaZelle As Range
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.InputBox("Bitte Bereich mit der Maus markieren", _
"Bereichswahl", , , , , , 8)
If Bereich Is Nothing Then
MsgBox "Nichts selektiert !" & vbCr & vbCr & "Makro-Abbruch !" _
, 0, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
On Error GoTo 0
'ActiveSheet.Unprotect
Application.ScreenUpdating = False
For Each RaZelle In Bereich
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 5
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
Set Bereich = Nothing
Application.ScreenUpdating = True
End Sub
Dazu habe ich noch eine "I-Tüpfelchen"-Frage :o)
Wäre es denn möglich die Zellen im Auswahlbereich nicht zu färben, sondern lediglich zusammenhängend zu markieren? ...man könnte vielleicht auch die Größe des Auswahlbereiches beschränken, falls das ein Problem wäre, oder?
Ich glaube, eine ähnliche Frage habe ich schon mal hier eingekippt, konnte aber den thread per Recherche nicht finden - damals ist meines Wissens keine zufriedenstellende Lösung zu Stande gekommen :o(
Hat jemand eine Idee?
Vielen Dank im Voraus!
Gruß
Tanja