Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Löschen von Daten mit Hilfe einer Schleife

Löschen von Daten mit Hilfe einer Schleife
19.01.2005 10:43:07
Daten
Hallo,
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")

Sub WerteLöschen()
Sheets("Inputdaten").Select
Range("J336:U341").Select
Selection.Clear
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Daten mit Hilfe einer Schleife
Daten
Moin Matthias,
probiere es mal damit.

Private Sub Werte_loeschen()
Dim i As Integer
Worksheets("Inputdaten").Activate
For i = 1 To 20
' Die Ziffern 10 und 26 geben die Spalten J bis Z an.
' Die Formel (321 + (i * 14)) und Cells((327 + (i * 14)) berechnen die Zeilen.
' Wenn das nicht ganz paßt muss du bei den Werten rumprobieren, da deine Angaben nicht
' ganz eindeutig sind.
Range(Cells((321 + (i * 14)), 10), Cells((327 + (i * 14)), 26)).ClearContents
Next i
End Sub

Gruß Heiko
PS: Das Forum lebt auch von den Rückmeldungen der Frager!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige