Mit Makro Zeilen löschen
31.05.2006 17:19:00
Niels
ich stehe gerade wieder vor einer kleinen Herausforderung,
an der ich mir die Zähne ausbeiße.
Da mein Projekt sehr komplex ist, beschreibe ich mein Anliegen nachfolgend etwas vereinfacht:
1.) Tabelle mit ca. 5000 Zeilen
2.) In Spalte A befinden sich absteigend Nummern (z.B. A1=2365; A2=2364 usw.)
3.) Die Anzahl der "postiven" Zahlen und Zeilen varriert täglich
(mal A1=2600 abwärts, mal A1=2433 abwärts usw.)
3.) Ich möchte per Makro alle Zeilen löschen, bei denen der Wert in Spalte A 4.) Ich habe einen Makro, der jede Zelle in A einzeln prüft und ggf. die Zeile löscht. Da der Makro aber später viele andere Aufgaben übernehmen soll ist die Rechenzeit viel zu groß.(Makro siehe unten)
Frage: Wie kann ich den Makro modifizieren, das er alle Zeilen, in denen Ax (z.B. A1-Ax >0 = Zeile 1-x behalten - Ax bis A5000 Ich hoffe ich habe das Problem verständlich beschrieben und Ihr könnt mir helfen.
Vielen Dank für Eure Tipps!
Gruß aus Berlin
Niels
Der momentane Testmakro:
Option Explicit
Sub test()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = i To 1 Step -1
If Cells(n, 1).Value < 1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub