Ich kann mir nicht vorstellen, dass sowas mit einer Formel zu bewerkstelligen ist aber dieses Makro dürfte machen was du willst.
Sub Makro1()
Dim Zellen As Integer
Dim Intervall As Integer
Dim StartCol As Integer
Dim StartRow As Integer
Dim Count As Integer
Zellen = CInt(InputBox("Wieviele Zellen sollen gelöscht werden?", "Zellenanzahl"))
Intervall = CInt(InputBox("In welchem Intervall sollen Zellen gelöscht werden?", "Intervall"))
StartRow = Selection.Row
StartCol = Selection.Column
For Count = StartRow To Zellen * Intervall Step Intervall
Cells(Count, StartCol).Select
Selection.ClearContents
Next
End Sub
so long
Seidl
|