Alan fragte, ob es eine Möglichkeit gibt, schnell und einfach zu identifizieren, welche Zellen in einer von jemand anderem erstellten Arbeitsmappe zusammengeführt werden. In der Realität gibt es verschiedene Möglichkeiten, diese Zellen zu identifizieren.

Eine Methode zum Identifizieren der Zellen besteht darin, die Suchfunktionen von Excel zu verwenden. Befolgen Sie diese Schritte:

  1. Drücken Sie Strg + F. Excel zeigt die Registerkarte Suchen des Dialogfelds Suchen und Ersetzen an.

  2. Klicken Sie bei Bedarf auf die Schaltfläche Optionen, um sicherzustellen, dass das Dialogfeld Suchen und Ersetzen erweitert wird, um alle Optionen anzuzeigen. (Siehe Abbildung 1.)

  3. Stellen Sie sicher, dass das Feld Suchen nach leer ist.

  4. Klicken Sie mit der Einfügemarke im Feld Suchen nach auf die Schaltfläche Formatieren. Excel zeigt das Dialogfeld Format suchen an.

  5. Stellen Sie sicher, dass die Registerkarte Ausrichtung angezeigt wird. (Siehe Abbildung 2.)

  6. Stellen Sie sicher, dass das Kontrollkästchen Zellen zusammenführen aktiviert ist (das Kontrollkästchen sollte aktiviert sein).

  7. Klicken Sie auf OK, um das Dialogfeld Format suchen zu schließen.

  8. Klicken Sie auf Alle finden.

Excel sucht nach zusammengeführten Zellen. Wenn diese gefunden werden, werden sie unten im Dialogfeld Suchen und Ersetzen angezeigt. Sie können dann einen der gefundenen Bereiche auswählen und der entsprechende Bereich wird im Arbeitsblatt ausgewählt.

Wenn Sie möchten, können Sie ein Makro verwenden, um die verschiedenen zusammengeführten Zellen im Arbeitsblatt zu finden. Das folgende Makro zeigt die vielleicht einfachste Methode dazu:

Sub FindMerged1()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             MsgBox c.Address & " is merged"

End If     Next End Sub

Dieses spezielle Makro durchläuft alle Zellen im Arbeitsblatt (zumindest die im UsedRange). Wenn die Zelle Teil einer zusammengeführten Zelle ist, wird ein Meldungsfeld angezeigt. Beachten Sie, dass die zu überprüfende relevante Eigenschaft die MergeCells-Eigenschaft ist. Dies wird auf True gesetzt, wenn die Zelle mit einer anderen Zelle zusammengeführt wird.

Natürlich kann die Ausführung eines solchen Makros ziemlich lange dauern, wenn das Arbeitsblatt viele Zellen enthält, und sogar länger, wenn eine gute Anzahl dieser Zellen zusammengeführt wird. Ihr Makro würde schneller ausgeführt, wenn es nicht bei jeder zusammengeführten Zelle anhalten und ein Dialogfeld anzeigen würde. Die folgende Version verfolgt einen anderen Ansatz und füllt jede zusammengeführte Zelle mit einer gelben Farbe:

Sub FindMerged2()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             c.Interior.ColorIndex = 36         End If     Next End Sub

Eine Variation dieses Ansatzes könnte darin bestehen, eine benutzerdefinierte Funktion zu erstellen, die einfach True oder False zurückgibt, wenn die Zelle zusammengeführt wird:

Function FindMerged3(rCell As Range)

FindMerged3 = rCell.MergeCells End Function

Mit dieser einfachen Funktion können Sie dann die bedingte Formatierung verwenden, um Zellen beim Zusammenführen irgendwie hervorzuheben. (Wenn die Funktion True zurückgibt, wendet die bedingte Formatierung die von Ihnen angegebene Formatierung für die Zelle an.)

Wenn Sie eine Liste von Zellen wünschen, die im Arbeitsblatt zusammengeführt werden, können Sie einfach die Liste von Ihrem Makro zusammenstellen lassen, anstatt die Zellen zu färben:

Sub FindMerged4()

Dim c As Range     Dim sMsg As String

sMsg = ""

For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             If sMsg = "" Then                 sMsg = "Merged worksheet cells:" & vbCr             End If             sMsg = sMsg & c.Address & vbCr         End If     Next     If sMsg = "" Then         sMsg = "No merged worksheet cells."

End If

MsgBox sMsg End Sub

Diese Variante zeigt am Ende des Makros ein einzelnes Meldungsfeld an, in dem die Adressen aller zusammengeführten Zellen im Arbeitsblatt angegeben sind.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3905) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Identifizieren zusammengeführter Zellen.