Ich habe mir mit meinen bescheidenen Kenntnissen und bisherigen Lernerfahren den folgenden Code zusammengeschrieben:
Sub InhaltLoeschen()
Dim ws, i As Integer
Dim tbl As ListObject
For ws = 1 To 12
For Each tbl In ThisWorkbook.Sheets(ws).ListObjects
For i = 3 To 33
tbl.ListColumns(i).DataBodyRange.ClearContents
Next i
Next tbl
Next ws
End Sub
Dieser soll bewirken das auf den ersten 12 Tabellenblätter der Arbeitsmappe in jeder dort vorhandenen intilligenten Tabelle der Zelleninhalt der Spalten 3 bis 33 ohne die Kopf- und Ergebniszelle gelöscht wird. Wenn ich den Code ausführe, wird mir eine Fehlermeldung angezeigt. Ich bitte um Unterstützung.