AW: Zeilen löschen wenn ...
15.09.2008 10:17:00
Daniel
Hi
dazu:
- Daten nach Spalte G sortieren
- Autofilter setzen in Spalte G und nach 1 filtern
- alle Zeilen außer der 1. löschen
- Daten nach spalte A sortieren.
falls du es als Makro brauchst, kannst du das ja mit dem Recorder aufzeichnen.
ne andere Methode wäre folgende:
Sub test()
Dim Zelle1 As Range, Zelle2 As Range
ActiveSheet.UsedRange.Sort key1:=Range("G1"), order1:=xlAscending, header:=xlGuess
Set Zelle1 = Range("G:G").Find(what:=1, after:=Cells(1, "G"), lookat:=xlWhole, LookIn:=xlValues, _
searchdirection:=xlNext)
Set Zelle2 = Range("G:G").Find(what:=1, after:=Cells(Rows.Count, "G"), lookat:=xlWhole, LookIn:= _
xlValues, searchdirection:=xlPrevious)
Range(Zelle1, Zelle2).EntireRow.Delete
ActiveSheet.UsedRange.Sort key1:=Range("A1"), order1:=xlAscending, header:=xlGuess
End Sub
Gruß, Daniel
Gruß, Daniel