Daten aus Tabelle löschen

[JJürgen]

Hallo,
ich habe diesen Code zum löschen von Daten.
funktioniert auch solange Daten vorhanden sind, wenn keine Daten in der Tabelle stehen, kommt eine Fehlermeldung.
auch logisch. 
Frage: wie muss man den Code ergänzen, Nur Mako ausführen wenn Daten vorhanden.

Sub Gastlöschen()

ActiveSheet.Unprotect

Tabelle10.ListObjects("tblGast").DataBodyRange.Delete

ActiveSheet.Protect

End Sub

Gruß Jürgen

[Egon12]

Hallo Jürgen,

du musst den Databodyrange auf not is nothing prüfen.

Also so:

If Not Tabelle10.ListObjects("tblGast").DataBodyRange Is Nothing Then Tabelle10.ListObjects("tblGast").DataBodyRange.Delete

Gruß Uwe

[JJürgen]

super, ich Depp, 
das ist das ding mit den Bäumen und dem Wald


Danke

[Klaus-Dieter]

Hallo,

Daten löschen, und das per Makro? Nicht so ganz im Sinne der EDV, meiner Ansicht nach...