Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Sortieren()
   Dim iRow As Integer
   Application.DisplayAlerts = False
   iRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("C1").FormulaR1C1 = "=TEXT(RC[-1],""MM.TT"")"
   Range("C1:C" & iRow).FillDown
   Range("A1").CurrentRegion.Sort _
      key1:=Range("C1"), order1:=xlAscending, _
      key2:=Range("A1"), order2:=xlAscending, _
      header:=xlNo
   Columns("C").Delete
   Application.DisplayAlerts = True
End Sub

    

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