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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen