Ich komme mit einem Button-Code nicht weiter, der die Eingaben der unten angegebenen Bereiche beim klicken löschen soll. Dabei ist der Bereich d31:d33 blöderweiser mit einem notwendigen "Zellen verbunden" versehen. Deshalb kommt ganze Zeit ein Fehler auf. Ich habe versucht, wie folgt das Problem zu umgehen:
<pre>Private Sub CommandButton1_Click()
DeleteKondContents Range("D8:d15, d31:d33, e31:e33")
End Sub</pre>
Sub DeleteKondContents(ByVal Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
Zelle.MergeArea.ClearContents
Next Zelle
Set Zelle = Nothing
End Sub</pre>
Aber es klappt nicht! Habt Ihr vielleicht netterweise einen Lösungsweg parat?