Gruppe
Funktion
Problem
Es soll eine Skatrangliste nach einzelnen Spieltagen und kumuliert erstellt werden.
StandardModule: modMain
Sub Filtern()
With ActiveSheet.UsedRange
.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Cells(1, .Columns.Count + 1), Unique:=False
.EntireColumn.Delete
End With
End Sub
ClassModule: DieseArbeitsmappe