wie lautet der Code, um in einem Tabellenblatt (z.B. Tab1) alle verbundenen Zellen und den kompletten Inhalt zu löschen?
gruss
bernd
Option Explicit
Sub hh()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.MergeCells Then
Zelle.Value = ""
Zelle.UnMerge
End If
Next Zelle
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen