AW: Tabelle alphabetisch in Bereich sortieren
20.05.2018 17:34:15
Sepp
Hallo Burghard,
Modul Modul1
Option Explicit
Sub sortArea()
Dim varValues As Variant, varSort() As Variant, varItem As Variant, objList As Object
Dim lngI As Long, lngR As Long, lngC As Long
Set objList = CreateObject("System.Collections.ArrayList")
With Tabelle1
varValues = Range("A1:E30")
Redim varSort(1 To Ubound(varValues, 1) * Ubound(varValues, 2))
For Each varItem In varValues
objList.Add varItem
Next
objList.Sort
varSort = objList.ToArray
For lngR = 1 To Ubound(varValues, 1)
For lngC = 1 To Ubound(varValues, 2)
varValues(lngR, lngC) = varSort(lngI)
lngI = lngI + 1
Next
Next
Range("A1:E30") = varValues
End With
Set objList = Nothing
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0