Verbundene Zellen finden

101023


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

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800