Sub VerbundeneZellen()
    Dim Zelle As Range
    For Each Zelle In Worksheets("Tabelle1").UsedRange
        If Zelle.MergeCells Then MsgBox Zelle.Address
    Next Zelle
End Sub