Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

die ersten 4 Zeilen löschen

die ersten 4 Zeilen löschen
18.11.2005 10:40:03
Jutta
Hallo,
wie ich jede 2. Zeile lösche weiß ich, jetzt muss ich aber ab A2 die ersten 4 Zeilen löschen, die 5. (A6) stehen lassen, die nächsten 4 löschen u.s.w.
Wie geht denn das ?
Gruß
Jutta

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: die ersten 4 Zeilen löschen
18.11.2005 10:47:39
IngGi
Hallo Jutta,
so zum Beispiel:

Sub Zeilen_loeschen()
Dim lRow As Long
For lRow = 65536 To 2 Step -4
Rows(lRow).Delete
Next 'lrow
End Sub
Gruß Ingolf
AW: die ersten 4 Zeilen löschen
18.11.2005 10:57:38
Jutta
Hallo Ingolf,
da hat es mir jetzt jede 3. Zeile gelöscht. Ich brauche aber die ersten 4 gelöscht (A2-A5), A6 soll stehen bleiben, dann wieder die nächsten 4 löschen ((A7-A10)und A11 wieder stehen lassen u.s.w.
Gruß
Jutta
AW: die ersten 4 Zeilen löschen
18.11.2005 11:04:38
haw
Hallo Jutta,

Sub Zeilen_loeschen()
Dim lRow As Long, lz&
lz = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = lz To 2 Step -1
If (lRow Mod 5) <> 1 Then Rows(lRow).Delete
Next lRow
End Sub

Gruß
Heinz
Anzeige
AW: die ersten 4 Zeilen löschen
18.11.2005 11:11:50
Jutta
Perfekt !
Danke !!
Gruß
Jutta

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige