zweite Zeile löschen

Erich · 2007-03-06T07:52:03+00:00

Hallo EXCEL-Freunde, möchte jede 2. Zeile löschen lassen und habe folgendes Muster: For X = 100 to 2 Step -2 Rows(X).Delete Next X Wie könnte ich das umstellen: 1. Ich markiere Zeile 20 gesamt oder Zelle A20 2. dann sollte jede 2. Zeile gelöscht werden 3. die Anzahl der Löschungen soll variabel sein (10 Zeilen, 20 Zeilen o.ä.) Falls es nur rückwärts geht, könnte ich natürlich auch die letzte zu löschende Zeile markieren. Besten Dank für eine Hilfe! mfg Erich Private Tippgemeinschaft für Lotto oder Keno: http://www.kenostrategen.de

Hallo Erich,
so funktioniert's:
erst angeben, wie viele Zeilen stehen bleiben sollen, dann wieviele gelöscht werden. Das Muster geht so lange weiter bis eine Zelle keinen Eintrag mehr hat. Sollen auch leere Zeilen (Zellen) gelöscht werden, dann statt Do While Cells(i, k).Value "" Do While i

Sub Zeilen_löschen()
Dim i, j, k, l, anz_lösch, anz_stehen As Integer
Dim term As String
Dim Mldg, Titel, Voreinstellung
Mldg = "Wie viele Zeilen sollen stehen bleiben?"  ' Aufforderung festlegen.
Titel = "ZEILE LÖSCHEN" ' Titel festlegen.
Voreinstellung = "1"    ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
term = InputBox(Mldg, Titel, Voreinstellung)
anz_stehen = term
Mldg = "Wie viele Zeilen sollen gelöscht werden?"  ' Aufforderung festlegen.
Titel = "ZEILE LÖSCHEN" ' Titel festlegen.
Voreinstellung = "1"    ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
term = InputBox(Mldg, Titel, Voreinstellung)
anz_lösch = term
i = ActiveCell.Row
k = ActiveCell.Column
j = i
Application.ScreenUpdating = False
Do While Cells(i, k).Value <> ""
For l = 1 To anz_stehen
i = i + 1
Next l
For l = 1 To anz_lösch
Rows(i).Select
Selection.Delete Shift:=xlUp
Next l
Loop
Cells(j, k).Select
Application.ScreenUpdating = True
End Sub

Gruß Martin

Hallo Erich,
probier mal diese beiden Prozeduren:

Option Explicit
Sub Zeilen_löschen4()
Dim rng As Range, lngZ As Long, lngA As Long, lngL As Long, zz As Long
Set rng = Cells.Find("*", Cells(1, 1), xlValues, , xlByRows, xlPrevious)
If rng Is Nothing Then lngZ = 1 Else lngZ = rng.Row
lngA = ActiveCell.Row
lngL = InputBox("Wie viele Zeilen maximal sollen gelöscht werden?", "ZEILE LÖSCHEN", "10")
Application.ScreenUpdating = False
For zz = Application.Min(lngA - 1 + 2 * lngL, lngZ - lngA Mod 2) To lngA + 1 Step -2
Rows(zz).Delete
Next zz
Application.ScreenUpdating = True
End Sub
Sub Zeilen_löschen3()
Dim rng As Range, lngZ As Long, zz As Long
Set rng = Cells.Find("*", Cells(1, 1), xlValues, , xlByRows, xlPrevious)
If rng Is Nothing Then lngZ = 1 Else lngZ = rng.Row
Application.ScreenUpdating = False
For zz = lngZ - ActiveCell.Row Mod 2 To ActiveCell.Row + 1 Step -2
Rows(zz).Delete
Next zz
Application.ScreenUpdating = True
End Sub

Die erste fragt nach der Anzahl zu löschender Zeilen, die zweite löscht bis zum Ende der Tabelle.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Forumthread: zweite Zeile löschen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

zweite Zeile löschen

Forumthread: zweite Zeile löschen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread