Inhalte löschen und nicht die kompletten Formate
25.11.2004 11:53:13
Michael
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
Habe eine Antwort bekommen es mal so zu probieren
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
funktioniert so nicht! Objektvariable oder With-Blockvariable nicht festgelegt
Kann da jemand helfen
Gruß Micha
Anzeige