Gruppe
Allgemein
Problem
Wie kann ich alle Zeilen außer der, die den hächsten Wert der Tabelle beinhaltet, löschen lassen?
StandardModule: basMain
Sub Filtern()
Dim rng As Range, rngMax As Range
Set rng = ActiveSheet.UsedRange
Set rngMax = rng.Find(WorksheetFunction.Max(rng))
Rows(rngMax.Row + 1 & ":" & Rows.Count).Delete
If rngMax.Row > 2 Then Rows("2:" & rngMax.Row - 1).Delete
End Sub