Löschen von Daten mit Hilfe einer Schleife
19.01.2005 13:41:48
Daten
ich möchte im Tabellenpblatt den Bereich ("J335:Z341") löschen. Das ist nicht das Problem. Nur soll dieser Vorgang 20 mal wiederholt werden und immer 13 Zeilen tiefer also der nächste Bereich ("J349:U354". Der Quellcode würde ewig lang werden und dann so aussehen
Sub WerteLöschen()
Sheets("Inputdaten").Select
Range("J336:U341").Select
Selection.Clear
Range("J349:U354").Select
Selection.Clear
Range("J362:U367").Select
Selection.Clear
usw.
End Sub
Hatte schon eine Lösung angeboten bekommen heute im Forum, leider funz die nicht.