Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem Spalte nach Datum sortieren
zurück: linie in balkendiagramm weiter: Ergebniss einer Begegnung in eine Tabelle übernehmen 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
Sven_K
Gast


Verfasst am:
27. Jan 2014, 14:26
Rufname:


Problem Spalte nach Datum sortieren - Problem Spalte nach Datum sortieren

Nach oben
       

Sven_K am 27. Jan 2014 um 13:01 hat folgendes geschrieben:
Hallo zusammen,

ich schreibe gerade ein Makro, um einige Spalten eines Tabellenblattes zu sortieren.

Den Code dazu sieht wie folgt aus:
Code:
Sub SortRange
    Dim oDocument
    Dim oSheets
    Dim oSheet
    Dim oRange
    Dim aSortFields(2) as New com.sun.star.util.SortField
    Dim aSortDesc(0) as New com.sun.star.beans.PropertyValue
 
    oDocument = ThisComponent
    oSheets = oDocument.Sheets
    oSheet = oSheets.getByIndex(0)
    oRange = oSheet.getCellRangeByPosition(1,9,10,88)  'range
    aSortFields(0).Field = 1
    aSortFields(0).SortAscending = True      'sort ascending by column C
    'aSortFields(1).Field = 2
    'aSortFields(1).SortAscending = False   'then sort descenting by column D
    'aSortFields(2).Field = 1
    'aSortFields(2).SortAscending = True      'then sort ascending by column C
    aSortDesc(0).Name = "SortFields"
    aSortDesc(0).Value = aSortFields()
    oRange.Sort(aSortDesc())
End Sub
Das funktioniert auch soweit, so lange in den zu sortierenden Zellen Texte stehen. Ich möchte nun aber eine Spalte nach Datum sortieren. Das funktioniert aber nun leider nicht. Die Sortierreihenfolge stimmt nicht.

Würde mich freuen, wenn jemand weiß, woran das liegt.

Vielen Dank!

Beste Grüße

Hallo,

im Zusammenhang mit der Sortierung habe ich noch ein Problem. Der folgende Code läuft bei mit Text gefülten Zellen.

Nun habe ich jeder zweiten Zeile eine Hintergrundfarbe zugewiesen, um die Tabelle leichter zu lesen. Wenn ich nun die Tabelle nach einer Spalte sortiere, wird leider nun auch die Hintergrundfarbe mitsortiert, d.h. die Reihenfolge der Hintergrundfarbe keine Farbe-blau-keine Farbe-blau-keine Farbe......wird dadurch total durcheinander geworfen. Ich möchte nun eben, dass die Hintergrundfarben der Zellen trotz der Sortierung gleich bleiben.

Hat jemand eine Idee, wie man das realisieren kann?

Vielen Dank!

Beste Grüße
Code:
Sub SortRange
    Dim oDocument
    Dim oSheets
    Dim oSheet
    Dim oRange
    Dim aSortFields(2) as New com.sun.star.util.SortField
    Dim aSortDesc(0) as New com.sun.star.beans.PropertyValue
 
    oDocument = ThisComponent
    oSheets = oDocument.Sheets
    oSheet = oSheets.getByIndex(0)
    oRange = oSheet.getCellRangeByPosition(1,9,10,88)  'range
    aSortFields(0).Field = 1
    aSortFields(0).SortAscending = True      'sort ascending by column C
    'aSortFields(1).Field = 2
    'aSortFields(1).SortAscending = False   'then sort descenting by column D
    'aSortFields(2).Field = 1
    'aSortFields(2).SortAscending = True      'then sort ascending by column C
    aSortDesc(0).Name = "SortFields"
    aSortDesc(0).Value = aSortFields()
    oRange.Sort(aSortDesc())
End Sub
Neues Thema eröffnen   Neue Antwort erstellen 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 Anwendungsübergreifende Fragen: Datum in Zeile 0 Mia94 106 03. Feb 2014, 12:58
Mia94 Datum in Zeile
Keine neuen Beiträge Anwendungsübergreifende Fragen: VBA - Uhrzeit und Datum an Dateinamen hängen 1 Sascha_77 1417 26. Jun 2012, 09:17
Sascha_77 VBA - Uhrzeit und Datum an Dateinamen hängen
Keine neuen Beiträge Office 2010 Forum: Excel: Spalteneinträge anhand 1. Spalte in Zeilen sortieren 0 KäferKarl 697 06. März 2012, 13:31
KäferKarl Excel: Spalteneinträge anhand 1. Spalte in Zeilen sortieren
Keine neuen Beiträge Office 2010 Forum: Datum anzeigen 2 Andiproblem 402 28. Feb 2012, 09:33
Gast Datum anzeigen
Keine neuen Beiträge Office 2010 Forum: Datum berechnung 4 pielimuli 698 09. Feb 2012, 14:27
pielimuli Datum berechnung
Keine neuen Beiträge Office 2010 Forum: Zeitangabe aus Zelle mit *=JETZT()* ohne Datum kopieren 1 Ottikoner 473 21. Dez 2011, 17:12
Ottikoner Zeitangabe aus Zelle mit *=JETZT()* ohne Datum kopieren
Keine neuen Beiträge Forum für LibreOffice, OpenOffice und Staroffice : Datum soll aus Kalenderwoche ermittelt werden 2 DiVa 3363 10. Nov 2011, 15:14
DiVa Datum soll aus Kalenderwoche ermittelt werden
Keine neuen Beiträge Office 2010 Forum: Exel Tabelle, rechnen mit Datum, verschachtelte Abfragen 0 Ullrich Baltzer 1005 30. Sep 2011, 20:14
Ullrich Baltzer Exel Tabelle, rechnen mit Datum, verschachtelte Abfragen
Keine neuen Beiträge Office 2007 Forum: Excel: Aktien Kurse beim importieren als Datum formatiert 2 dschaegger 1105 26. Sep 2011, 13:28
Ute-S Excel: Aktien Kurse beim importieren als Datum formatiert
Keine neuen Beiträge Office 2010 Forum: Word und Excel mit aktuellem Datum speichern 2 MSchmali 1418 29. Jul 2011, 12:36
Gast Word und Excel mit aktuellem Datum speichern
Keine neuen Beiträge Office 2010 Forum: VBA-Excel - Makro erstellen & Datum 0 limetten_king 1603 19. Jul 2011, 10:11
limetten_king VBA-Excel -  Makro erstellen & Datum
Keine neuen Beiträge Office 2010 Forum: Word 2010 Fußzeile mit Autor, Seitenzahl und Datum - Wie? 1 Gast-Mandy 7916 03. Jul 2011, 14:32
Gast Mandy Word 2010 Fußzeile mit Autor, Seitenzahl und Datum - Wie?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps