Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Skatrangliste erstellen

Gruppe

RANG

Problem

Es soll eine Skatrangliste nach einzelnen Spieltagen und kumuliert erstellt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.

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