Code sucht im aktiven Tabellenblatt nach verbundenen Zellen und zeigt die Adressen in einer MessageBox an.

 

Public Sub Verbundene_Zellen_suchen()

'Code für ein allgemeines Modul

'Code sucht im aktiven Tabellenblatt verbundene Zellen

'********************************

'Autor: Jürgen Hennekes

'********************************

Dim strMsg As String

Dim Zelle As Range

Dim bln As Boolean

Dim strFirstAddress As String

 

strMsg = "Das aktive Tabellenblatt enthält folgende verbundene Zellen:" & vbCr & vbCr

 

For Each Zelle In ActiveSheet.UsedRange

  If Zelle.MergeCells = True Then

    If Zelle.MergeArea.Address(0, 0) <> strFirstAddress Then

      strMsg = strMsg & vbCr & Zelle.MergeArea.Address(0, 0)

      strFirstAddress = Zelle.MergeArea.Address(0, 0)

    End If

    bln = True

  End If

Next

 

If bln = True Then

  MsgBox strMsg

    Else

  MsgBox "Das aktive Tabellenblatt enthält keine verbundenen Zellen.", 64

End If

End Sub