Verbundene Zellen finden

Das folgende Makro findet alle verbunden Zellen und gibt die Zelladressen

in einer MessageBox aus.

Sub VerbundeneZellen_Adressen()
'Die Zelladressen aller verbundenen Zellen werden ausgegeben.
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
    If Zelle.MergeCells Then MsgBox Zelle.Address
Next Zelle
End Sub

Möchten Sie dass alle verbundenen Zellen farblich markiert werden, dann verwenden Sie das folgende Makro:.

Sub VerbundeneZellen_einfärben()
'Alle verbundenen Zellen werden eingefärbt
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
    If Zelle.MergeCells Then Zelle.Interior.ColorIndex = 15
Next Zelle
End Sub