Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Sortieren nach 2 Krit. Zeilen Variabel
Office Forum -> Excel Forum -> Excel VBA (Makros)
zurück: farbige Zellen werden bei meinem Makro nicht übernommen weiter: Kopieren funktioniert im Makro nicht? Weiß nicht weiter... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ulf3000
Gast


Verfasst am:
14. Sep 2013, 21:31
Rufname:

Sortieren nach 2 Krit. Zeilen Variabel - Sortieren nach 2 Krit. Zeilen Variabel

 Nach oben
       Version: Office 2007
Hallo,
die Suche im Netz ergab nichts, deshalb brauche ich eure Hilfe.
Möchte nach 2. Krit. Sortieren, Farbe und Werte, allerdings ist der End-Range nicht immer F300, sondern kann auch weniger oder mehr sein.
D.h. eine Erkennung der letzten beschriebenen Zeile danach nach 2. Krit sortieren.
Der Recorder ergab folgendes:

Code:
Sub Makro11()

    ActiveWorkbook.Worksheets("test").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Add(Range("F2:F300"), _
        xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 _
        , 0)
    ActiveWorkbook.Worksheets("test").Sort.SortFields.Add Key:=Range( _
        "B2:B300"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("test").Sort
        .SetRange Range("A2:BI300")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Gruß
Ulf
Gast



Verfasst am:
15. Sep 2013, 08:24
Rufname:

AW: Sortieren nach 2 Krit. Zeilen Variabel - AW: Sortieren nach 2 Krit. Zeilen Variabel

 Nach oben
       Version: Office 2007
Hi

das Ermitteln der letzten Zeile ist nicht erforderlich.

bei den Sortfields reicht es aus, eine Zelle der Spalte anzugeben, bei SetRange gibst du einfach die ganze Spalte an: Range("A:BI").

wenn du eine Überschriftenzeile hast, die nicht mitsortiert werden soll, setzt du die Eigenschaft: Header:=xlyes.

kleiner Tipp noch: wenn du nicht auf dem aktiven Tabellenblatt arbeitest, musst du vor den Ranges bei sorfields und SetRange auch noch das Tabellenblatt dazuschreiben.

Gruss Daniel
Ulf3000
Gast


Verfasst am:
15. Sep 2013, 14:50
Rufname:

AW: Sortieren nach 2 Krit. Zeilen Variabel - AW: Sortieren nach 2 Krit. Zeilen Variabel

 Nach oben
       Version: Office 2007
Hallo Gast,

das funktioniert so nicht, der haut mir alles durcheinander nach oben, und in der mitte sind leerzeilen danach kommen die farbigen.
Mit dem aufgezeichneten Makro funktioniert es, aber sobald man die Markierung erweitert entstehen in der mitte leerzeilen.

Gruß
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben Alle Zeiten sind
GMT + 1 Stunde
Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: dreistellige zahlen in einer tabelle sortieren 4 konti_007 1089 19. Jul 2005, 09:47
Gast dreistellige zahlen in einer tabelle sortieren
Keine neuen Beiträge Excel Formeln: Tabelle nach einem Teil einer Zelle sortieren 14 Holzhuhn 1386 15. Jul 2005, 15:39
Holzhuhn Tabelle nach einem Teil einer Zelle sortieren
Keine neuen Beiträge Excel Formeln: kann keine zeilen einfügen 1 rosarot 1690 15. Jul 2005, 15:10
fl618 kann keine zeilen einfügen
Keine neuen Beiträge Excel Formeln: Muß Daten kopieren mit Bezug auf mehrer Zeilen 3 Anke 1487 07. Apr 2005, 10:54
Anke Muß Daten kopieren mit Bezug auf mehrer Zeilen
Keine neuen Beiträge Excel Formeln: Zeilen mit Eintrag zählen 2 Martymak 1192 06. Apr 2005, 11:09
Martymak Zeilen mit Eintrag zählen
Keine neuen Beiträge Excel Formeln: Tabelle nach Rang sortieren 4 Gast 1786 26. Feb 2005, 17:27
Gast Tabelle nach Rang sortieren
Keine neuen Beiträge Excel Formeln: Sortieren in Excel 4 roli 1695 06. Feb 2005, 18:40
roli Sortieren in Excel
Keine neuen Beiträge Excel Formeln: Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K 1 diaphone 3407 28. Jan 2005, 09:53
SapceBird Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K
Keine neuen Beiträge Excel Formeln: Spalten Sortieren 23 Fireball8 3108 07. Jan 2005, 18:40
fridgenep Spalten Sortieren
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: HIFE!!! gewisse zeilen löschen 2 Stevie0130 1580 12. Dez 2004, 18:35
Gast HIFE!!! gewisse zeilen löschen
Keine neuen Beiträge Excel Formeln: sverweis + darunterliegende Zeilen 7 L*R 3701 12. Nov 2004, 13:55
Arnim sverweis + darunterliegende Zeilen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project