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
|