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