Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte in mehreren Spalten sortieren

Gruppe

Sortieren

Problem

Wie kann ich die Werte in mehreren Spalten sortieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub MultiSort()
   Dim iCol As Integer, iRow As Integer, iRowT As Integer
   For iCol = 1 To 2
      iRow = 1
      Do Until IsEmpty(Cells(iRow, 1))
         iRowT = iRowT + 1
         Cells(iRowT, 27).Value = Cells(iRow, iCol).Value
         iRow = iRow + 1
      Loop
   Next iCol
   Range("AA1").CurrentRegion.Sort _
      key1:=Range("AA1"), order1:=xlAscending
   iRowT = 0
   For iCol = 1 To 2
      iRow = 1
      Do Until IsEmpty(Cells(iRow, 1))
         iRowT = iRowT + 1
         Cells(iRow, iCol).Value = Cells(iRowT, 27).Value
         iRow = iRow + 1
      Loop
   Next iCol
   Columns("AA").ClearContents
End Sub