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

Löschen von Daten mit Hilfe einer Schleife

Forumthread: 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

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige