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

Partnerlinks

Relevante Artikel

  • Einträge nach Zellfarbe sortieren

      Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.Maßgebend für das sortieren ist die...

  • Autofilter: Gefilterte Datensätze auslesen

    In diesem Artikel erläutern wir, wie sich der über einen Autofilter gefilterte Inhalt aus einer Liste auslesen lässt. Als...

  • Zwischenablage per VBA leeren

    Wenn Sie größere Datenmengen über die Zwischenablage in Excel per VBA kopieren, kann dies zu Problemen beim Schließen der...

  • Zahlen aus Text extrahieren

    Aufgabenstellung: In einer Liste (Zellbereich A1:A10) sind Texte mit Ziffernenthalten, siehe folgende Abbildung.   A 1 Der Preis...

  • Bilder in Zellen importieren

    Per VBA lassen sich Bilder aus einem angegebenen Verzeichnis auslesen und importieren. Die vorgestellte Prozedur liest die...

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.