Zellbereich vergrössern mit Union

Das nächste Beispiel markiert alle ausgefüllten Zellen auf einem Blatt:
Dim objZelle As Range
Dim objGefZellen As Range
 
For Each objZelle In ActiveSheet.UsedRange
  If objZelle.Value <> "" Then
    If objGefZellen Is Nothing Then
      Set objGefZellen = objZelle
    Else
      Set objGefZellen = Union(objGefZellen, objZelle)
    End If
  End If
Next objZelle
 
objGefZellen.Select

Übung 2