xlAtom Nr. 000015

27.08.2007 08:07:40 | verbundene Zellen markieren

in der aktuellen Tabelle sollen alle verbundenen Zellen markiert werden

Sub verbunden()
    Dim RaZelle As Range
    For Each RaZelle In ActiveSheet.UsedRange
        If RaZelle.MergeCells Then RaZelle.Interior.ColorIndex = 6
    Next RaZelle
End Sub

Gruppe: VBA/Makros | Ideengeber: Hajo_Zi | Name: Hajo_Zi