Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
Next
End Sub
Danke Micha
Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
Next
End Sub
Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
'For Each rngCell In rngLoe
'If rngCell.MergeCells Then
' rngCell.UnMerge
'End If
rngLoe.ClearContents
'Next
End Sub