Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Forumthread: Sortieren

Sortieren
09.03.2014 19:07:33
Hannelore
Hallo,
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
10.03.2014 11:52:39
UweD
Hallo
auf Select kann normal verzichtet werden.
-Das hab ich ich bei dem Sort so weggenommen.
- Bei dem 2. select (das willst du ja tatsächlich so haben) fehlt vorher das Wechseln auf das Blatt.
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

Gruß UweD

Anzeige
AW: Sortieren
10.03.2014 16:25:11
hannelore
Hallo Uwe,
Danke für Deine Hilfe, funktioniert so wie ich das haben will.
Du hast recht, ich habe das 2.te Select weggelassen.
Gruß
Hanni
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige