Laufzeitfehler bei DataBodyRange.Delete
09.10.2023 11:04:26
Rebecca
ich habe in einem Tabellenblatt 3 intelligente Tabellen, damit ich einfach nach Suchbegriffen selektieren kann. Diese Tabellen werden mittels eines Macros austomatidsch befüllt mit Daten aus anderen Tabellenblättern.
Nun will ich die Tabellen immer erst 'leeren' bevor sie neu befüllt werden. Dafür benutze ich folgenden Code:
Private Sub Worksheet_Activate()
If Not Worksheets("aktuelles Jahr").ListObjects("baulicheBedarfe").DataBodyRange Is Nothing Then
Worksheets("aktuelles Jahr").ListObjects("baulicheBedarfe").DataBodyRange.Delete
End If
If Not Worksheets("aktuelles Jahr").ListObjects("Wartung").DataBodyRange Is Nothing Then
Worksheets("aktuelles Jahr").ListObjects("Wartung").DataBodyRange.Delete
End If
If Not Worksheets("aktuelles Jahr").ListObjects("Havarie").DataBodyRange Is Nothing Then
Worksheets("aktuelles Jahr").ListObjects("Havarie").DataBodyRange.Delete
End If
End Sub
Doch leider wird mir dann folgender Fehler angezeigt:
"Laufzeitfehler '1004': Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoben würden."
Leider weiß ich nicht weiter. Kann mir bitte jemand helfen?
Viele Grüße
Rebecca