verbundene Zellen aufheben

Ich nutze um die verbundenen Zellen nicht mühsam suchen zu müssen nachstehendes Makro, dass den Zellverbund aufhebt und die Fundstelle gelb markiert, damit ich erkennen kann, wo ich eventuell die Tabellenstruktur nachbereiten muß. Sub verbundene_zellen_aufheben() Dim bereich  As Range Dim zelle As Range Set bereich = ActiveSheet.Cells.ColumnDifferences(ActiveCell) For Each zelle In bereich If zelle.MergeCells And zelle.Value <> "" Then zelle.Interior.Color = 65535 'EVTL. MARKIEREN GELB !!! With zelle.MergeArea .UnMerge .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlBottom .Orientation = 0 End With End If Next End Sub

Dieses Makro kann natürlich genauso genutzt werden um in Tabellen oder Dateien die man von anderen bekommt und aufbereiten soll zu durchsuchen, wo sich verbundene Zellen befinden.

 Share on Facebook

Read more http://vba-codeschnipsel.de/verbundene-zellen-aufheben/