Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub ZeilenSortieren()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Rows(iRow).Sort _
         Key1:=Cells(iRow, 1), _
         Order1:=xlAscending, _
         Header:=xlGuess, _
         OrderCustom:=1, _
         MatchCase:=False, _
         Orientation:=xlLeftToRight
      iRow = iRow + 1
   Loop
End Sub

    

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