Ich kann leide rnicht gut programmieren und habe eine riesige Excel-Tabelle, bei der ich nur jeden zehnten wert brauche (1. Wert behalten und dann 9 löschen und das, solange Werte da sind). Das gilt sowohl für Zeilen als auch für Spalten. Ab Zeile und Spalte 2 beginnen die Werte.

Ich habe bereits ein Programm gefunden und umgeschrieben, aber es klappt nicht. kann mir bitte jemand helfen?

Sub Delete()
   With Tabelle1.UsedRange
      With .Columns(.Columns.Count).Offset(, 1)
         .Formula = "=IF(MOD(ROW()+1,10)*(ROW()>2),1,"""""""""")"
         .Value = .Value
         .EntireRow.Sort .Cells(1), xlAscending, Header:=xlNo
         On Error Resume Next
         .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
         On Error GoTo 0
         .ClearContents
      End With
   End With
End Sub