Office: (Office 2016) Fehler 400 bei einfachen VBA-Code

Guten Tag Excel-Experten

Wieder mal sitze ich auf dem Schlauch und brauche eure Hilfe.

Meine Kalkulationsdatei ist ziemlich fortgeschritten, habe bereits eine Menge Code geschrieben. Funktioniert auch alles einwandfrei.

Nun wollte ich aus Bequemlichkeit noch einen zusätzlichen Code schreiben. Dieser soll einfach nur gewisse Bereiche der Tabelle leeren.
Dieses Makro, steuere ich über eine Schaltfläche im Excel-Menüband an (wie übrigens alle anderen auch)

Code:

Public Sub MatZellenLoeschen()
    Dim a As Variant
    Call Definitionen
    a = MsgBox("Alle Zelleninhalte der Materialkosten wirklich löschen?", vbYesNo)
    If a = vbNo Then Exit Sub
    
    ZWs.Range("E14:AA52").ClearContents
    ZWs.Range("AR14:AR52").ClearContents
End Sub

Nun ist es so, das wenn ich diesen Code starte, bekomme ich eine Fehlermeldung von Visual Basic: ein Grosses rotes X und dahinter die Zahl 400.

Wenn ich die beiden Range Anweisungen rausnehme, kommt kein Fehler mehr. ZWs ist geprüft und funktioniert.

Ich habe nun diverse Foren durchsucht, aber ich finde leider die Lösung nicht. Hat jemand von euch eine Idee?

Danke schon im Voraus für eure Mühe.

Gruss Roland

 

Hallo

mal ein Schuß ins Blaue...
sind in den Range-Bereichen eventuell verbundene Zellen?

MfG Tom

 

Hallo Tom

Hahahaha erwischt. An diese blöden verbundenen Zellen habe ich nicht gedacht.

Ich habe die verbundenen Zellen nicht gerne, brauche sie aber in dieser Tabelle leider.

Habe das Ganze jetzt umgangen, wenn ihr einen bessern Vorschlag habt (ausser auf verbundene Zellen zu verzichten), dann bin ich ganz Ohr.

Code:

Public Sub MatZellenLoeschen()
    Dim a As Variant
    Dim zelle As Range
    Call Definitionen
    
    a = MsgBox("Alle Zelleninhalte der Materialkosten wirklich löschen?", vbYesNo)
    If a = vbNo Then Exit Sub

    For Each zelle In ZWs.Range("E14:AA52")
        zelle.MergeArea.ClearContents
    Next zelle
    Set zelle = Nothing

    For Each zelle In ZWs.Range("AR14:AR52")
        zelle.MergeArea.ClearContents
    Next zelle
    Set zelle = Nothing

End Sub

Danke für die Hilfe Tom.

Gruss Roland