ich habe ein Problem mit dem sortieren.
Da die zu sortierenden Spalten immer unterschiedlich sind klappt dies nicht
richtig.
https://www.herber.de/bbs/user/89599.xlsm
Danke für Eure Hilfe!
Gruß
Hannelore
Private Function SortListen()
With ThisWorkbook.Sheets(P)
bytSpalte = .Rows(1).Find(What:=DatenNeu, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:= _
xlByRows).Column
strCol = Chr(64 + bytSpalte) & "2"
loEnde = .Cells(Rows.Count, bytSpalte).End(xlUp).Row
For ii = 2 To loEnde
.Columns(bytSpalte).Sort _
Key1:=.Range(strCol), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next ii
.Activate
.Cells(1, 1).Select
End With
End Function