falsche reihenfolge

Bild

Betrifft: falsche reihenfolge
von: tün
Geschrieben am: 26.10.2015 10:52:11

Hallo zusammen,
da mir google mir schon weitergeholfen sollte jetzt das Makro nur noch absteigend sortieren, da ich mit meinem Latain am Ende bin benötige ich Eure Unterstützung.
Kann mir jemand helfen.
Herzlichen Dank
CU Tün

Sub Sortieren()
Dim Zeile As Long
      Zeile = Range("b16:o96").Find("*", , , , xlByRows, xlPrevious).Row
      Range(Range("b16"), Cells(Zeile, 15)).Sort Key1:=Range("o16"), Order1:=xlAscending, _
         Header:=xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
End Sub

Bild

Betrifft: AW: falsche reihenfolge
von: Rudi Maintaire
Geschrieben am: 26.10.2015 10:55:38
Hallo,
OrderCustom:=6
bestimmt eine benutzerdef. Reihenfolge.
Lass alle Parameter nach Header:=xlGuess weg.
Gruß
Rudi

Bild

Betrifft: AW: falsche reihenfolge
von: tün
Geschrieben am: 26.10.2015 13:38:08
Hallo,
herzlichen Dank für die Unterstützung aber wenn nicht alle Zeilen gefüllt sind, werden, wenn ich absteigend sortiere erst die leeren zeilen angezeigt und diese sollten am ende stehen
Besten Dank
CU Tün

Bild

Betrifft: AW: falsche reihenfolge
von: tün
Geschrieben am: 26.10.2015 14:23:59
hey, ich habe noch eine mappe hochgeladen
https://www.herber.de/bbs/user/101037.xlsm

Bild

Betrifft: AW: falsche reihenfolge
von: DD
Geschrieben am: 26.10.2015 15:18:01
Moin tün,
wenn ich deine Datei "Nach Größe (absteigend)" händisch sortiere,
habe ich in Spalte O zuerst 3 Zellen, die leer zu sein scheinen.
Diese sind aber nicht leer. Wenn ich diese 3 Zellen mit Anzahl2() prüfe,
bekomme ich die Info das diese Zellen nicht leer sind.
Vielleicht hilft dir dass bei diesem Phänomen.
Gruß Dieter_D

Bild

Betrifft: xlAscending <-> xlDescending (owT)
von: Matthias L
Geschrieben am: 26.10.2015 11:11:30


Bild

Betrifft: AW: xlAscending <-> xlDescending (owT)
von: tün
Geschrieben am: 26.10.2015 14:25:18
ich habe noch ein beispiel hochgeladen
https://www.herber.de/bbs/user/101037.xlsm

Bild

Betrifft: AW: xlAscending <-> xlDescending (owT)
von: Rudi Maintaire
Geschrieben am: 26.10.2015 14:52:43
Hallo,
so?

Sub Sortieren()
  Dim Zeile As Long
  Zeile = Range("b16:o96").Find("*", , , , xlByRows, xlPrevious).Row
  Range(Range("b16"), Cells(Zeile, 15)).Sort _
    Key1:=Range("o16"), Order1:=xlDescending, _
    Header:=xlGuess
End Sub
Gruß
Rudi

Bild

Betrifft: AW: xlAscending <-> xlDescending (owT)
von: tün
Geschrieben am: 26.10.2015 19:51:13
Hallo Rudi,
aber sowas von so!!!
herzlichen Dank
CU Tün

 Bild

Beiträge aus den Excel-Beispielen zum Thema "falsche reihenfolge"