Zelleninhalt per Schleife löschen
15.11.2022 20:47:31
Romy
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
Anzeige