Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen

Zeilen löschen
24.04.2006 11:02:23
Gerhard
Hallo
Wie kann ich in einer Messtabelle überflüssige Zeilen löschen, sodaß nur in 5er Schritten die Zeilen beibehalten bleiben.
Die Tabelle liegt wie folgt vor:
A: Inhalt
A1: 1000 Zeile nicht löschen
A2: 1001 Zeile soll gelöscht werden
A3: 1002 Zeile soll gelöscht werden
A4: 1003 Zeile soll gelöscht werden
A5: 1004 Zeile soll gelöscht werden
A6: 1005 Zeile nicht löschen
A7: 1006 Zeile soll gelöscht werden
A8: 1007 Zeile soll gelöscht werden
A9: 1008 Zeile soll gelöscht werden
A10:1009 Zeile soll gelöscht werden
A11:1010 Zeile nicht löschen
usw.
Vielen Dank
Gerhard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
24.04.2006 11:59:28
u_
Hallo,

Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) Mod 5 <> 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Zeilen löschen
24.04.2006 12:00:20
Uwe
Hi Gerhard,
das müsste so klappen:


Dim i As Long
   For i = Range("A65536").End(xlUp).Row To 1 Step -1
         If Cells(i, 1).Value Mod 5 <> 0 Then
         Cells(i, 1).EntireRow.Delete
         End If
   Next
Gruß
Uwe
(:o)


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige