Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: kealfra am Oktober 14, 2012, 17:37:24 Nachmittag
-
Hallo,
Eine hilfreiche Dame namens "Beverly" hat mir Ende August einen Algorhytmus zum Sortieren einer rel. umfangreichen Videotabelle nach Titeln zur Verfügung gestellt.
In dieser Tabelle sind die enthaltenen diversen Videoformate durch die Farben gekennzeichnet, in denen die Titel geschrieben sind. Jetzt habe ich den Wunsch diese Tabelle auch nach Videoformaten, also nach den Farben der Titel zu sortieren. Leider schaffe es aber nicht, den Algorhytmus entsprechend abzuwandeln. Er lautet:
Dim lngLetzte As Long
With ActiveWorkbook.Worksheets("XYZ")
lngLetzte = .Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range( _
"F4:F" & lngLetzte), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("XYZ").Sort
.SetRange Range("A4:G" & lngLetzte)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Kann mir jemand dabei helfen. Vielleicht ist "Beverly" ja nochmals in Geberlaune.
mfg Wohnwagen