Office: Zeilen löschen in Abhängigkeit einer Variable

Hallo zusammen,

ich habe folgendes Problem. Ich möchte in Abhängigkeit einer Variable (AT)mehrere Zeilen löschen, sprich

AT=1 Lösche Zeile 14-51
AT=2 Lösche Zeile 16-51
AT=3 Lösche Zeile 18-51
[...]
AT=19 Lösche Zeile 50-51
AT=20 Mache nichts

Bislang habe ich folgenden Code umgesetzt,
AT wurde zuvor als Long eingelesen.

Dim L As Long
Dim T As Long
T = 20 - AT
For L = 1 To T Step 1
Rows(52 - L).Delete
Rows(51 - L).Delete
Next L

Irgendwie funktioniert der Code aber nicht exakt...und ich weiß nicht, woran es liegt. Ich habe extra von unten angefangen zu löschen, um mit der Zeilennummerierung nicht durcheinander zu kommen.
Vielen Dank für jedwede Hilfe.

:)

 

Hallo Joghivan,

das geht auch ohne Schleife:
Code:

Gruß Ingolf

 

Vielen herzlichen Dank. Ich stand ziemlich auf der Leitung.