Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Filtern()
   With ActiveSheet.UsedRange
      .Sort Key1:=Range("A2"), Order1:=xlDescending, _
         Header:=xlGuess, OrderCustom:=1, _
         MatchCase:=False, Orientation:=xlTopToBottom
      .AdvancedFilter Action:=xlFilterCopy, _
         CopyToRange:=Cells(1, .Columns.Count + 1), _
         Unique:=True
      .EntireColumn.Delete
   End With
   Columns.AutoFit
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten