Löschen des Inhaltes von Zellen die genau 20 untereinander stehen

Question

Ich möchte euch wieder einmal um eure Hilfe bitten!

Ich möchte den Inhalt der Zelle A1, A21, A41, A61........bis A65000 gelöscht bekommen!
Bitte um Hilfe
L.g Wuulf

Answer 1

Hallo,

ich würde es ja nur bis zur letzten gefüllten Zelle in Spalte A machen.
Option Explicit

Sub Nick()
Dim LoI As Long
Application.ScreenUpdating = False
For LoI = 1 To Rows.Count Step 40
Range(Cells(LoI, 1), Cells(LoI + 19, 1)).ClearContents
Next LoI
Application.ScreenUpdating = True
End Sub

Gruß Hajo

Answer 2

Hallo,

in diesem Falle müsste Step 40 in Step 20 geändert werden.

Gruß
Rainer

Answer 3

Halo Rainer,

Nein,

21 bis 40 soll nicht gelöscht werden. Oder habe ich das falsch interpretiert. In Deinem Fall kann man die Spalte A gleich komplett leeren.

Gruß Hajo

Answer 4

Ich habe mehrere sehr ähnliche Fälle.

Konkret: gelöscht werden soll
A1, A135, A269.......letzte ist A30017

Habe die Formel "angepasst"
Habe Count Step 40 durch134 ersetzt und
Cells(LoI + 19, 1) diesen 19 durch 133 ersetzt

Ergebnis: die gesamte Spalte A wird gelöscht

Bitte um weitere Hilfe
Wuulf

Answer 5

Hallo

hat sich jetzt die erste Aufgabe geänder?
den Teil
Range(Cells(LoI, 1), Cells(LoI + 19, 1)).ClearContents
muss geändert werden in
Cells(LoI, 1).ClearContents

Gruß Hajo

Answer 6

Hallo Hajo,

ich habe es so verstanden, dass die genannten Einzelzellen gelöscht werden sollen.

Dann müsste Dein Code so lauten

Option Explicit

Sub Nick()
Dim LoI As Long
Application.ScreenUpdating = False
For LoI = 1 To Rows.Count Step 20
Cells(LoI, 1).ClearContents
Next LoI
Application.ScreenUpdating = True
End Sub

Für das weitere Beispiel der gleiche Code mit Step 134

Gruß
Rainer

Answer 7

GELÖST !!!

Wollte wirklich den Inhalt der Zellen und das Programm von Hajo löscht das Gewünschte!

Recht herzlichen Dank an Euch!

Eine letzte Frage noch:
Wie ändere ich das Programm um, wenn die erste lu löschende zum Beispiel B3 ist?

L.g
Wuulf