Code Snippet "VBA Excel"

Markiert alle ungesperrten Zellen des aktiven Blattes, vergrössert Range mit Union(..)

Praktische Routine zum Testen von teilweise gesperrten Arbeitsblättern. Illustriert, wie sich mit Union(..) Zellbereiche erweitern lassen

Sub procAlleUngesperrtenZellenMarkieren()
  Dim objGefundeneZellen As Range
  Dim objZelle As Range
  
  For Each objZelle In ActiveSheet.UsedRange
    If Not objZelle.Locked Then
      If objGefundeneZellen Is Nothing Then
        Set objGefundeneZellen = objZelle
      Else
        Set objGefundeneZellen = Union(objGefundeneZellen, objZelle)
      End If
    End If 'Not objZelle.Locked
  Next objZelle
  
  If objGefundeneZellen Is Nothing Then
    MsgBox "Alle Zellen sind gesperrt."
  Else
    objGefundeneZellen.Select
  End If
End Sub