Office 2016 Zeile nach Datum sortieren

[Sarahsa]

Hallo Zusammen

Ich brauche Hilfe...

Ich habe eine Liste aus unserer Datenbank exportiert mit den Teilnehmern und den Daten an welchen Kursen sie teilgenommen haben. Die verschiedenen Kursdaten (01.02.18 / 05.03.18 etc) an denen der Teilnehmer teilgenommen hat, sind willkürlich durcheinander pro Zeile/Teilnehmer. Ist es möglich dass die Daten sich automatisch den entsprechenden Spalten zuordnen pro Zeile? Oder kann die Zeile zumindest nach Datum sortiert werden?

Ich komme nicht weiter...

Vielen Dank für eure Hilfe!

Liebe Grüsse

[maninweb]

Hallo,

Du müsstest etwas detaillierter werden, denn so ist das nicht nachvollziehbar. Als was exportiert die Datenbank die Daten?
Zum Beispiel CSV, Excel, oder ... Ausserdem, wie exportierst Du? Wenn das eine Abfrage der DB ist, ginge vielleicht schon
das Sortieren über die DB-Abfrage.

Gruß

[Sarahsa]

Hallo,

Entschuldigen, ich tu mich ein bisschen schwierig das zu erklären ohne einen Roman zu verfassen...

Die Daten exportieren wir als Excel aus unserer Datenbank. Diese ist schon ziemlich altertümlich und wird zum Glück auch bald abgelöst daher ist es über die DB leider nicht möglich sollte aber mit der neuen dann alles vereinfachen.

Daher suche ich eine Lösung übers Excel aber habe bis jetzt noch keine gefunden.

Ich versuche die unsortierten Daten pro Zeile aufsteigend zu sortieren doch dies gelingt mir nicht.

Siehe Anhang: in der obersten Zeile sind die Kursdaten. In den unteren Zeilen sind die Kursdaten ersichtlich an welche die Kandidaten teilgenommen haben. Nun versuche ich um mir Stunden Arbeit zu ersparen die Daten aufsteigen pro Zeile zu sortieren. Am besten wäre natürlich wenn die Daten den jeweiligen in der obersten Zeile zugeordnet wären.

Ich hoffe ich habe mich einigermassen verständlich ausgedrückt

Vielen Dank schon mal!!

[Packman]

Hallo Community

Mit Vba

Daten in einem Array übernehmen,um später die leeren Zellen zu ermitteln
Auffülle der leerstehenden Zellen bei der Tabelle mit Daten der darüberliegenden Zelle
Dann Sortieren
Über eine Schleife das Array durchlaufen lassen und auf leere Zellen abtasten,der darüberliegende Wert ist der Suchbegriff
Bei der Tabelle Wert suchen und den darunterliegenden Wert wieder löschen
So lassen sich auch Tabellen Sortieren mit unterschiedlicher Anzahl von leeren Zellen(Arrayabfrage auf eine oder mehrere leere Zellen)!

Gruß Packman

[Packman]

Hallo Community 

ops,sollte ja ohne Vba sein bzw der Fragesteller zuwenig Vba Kenntnisse!
Bei bedarf kann ich mich ja am Wochenende mal Probieren!

Gruß Packman

[Sarahsa]

Hallo Packman

Vielen Dank für deine Rückmeldung aber ja, mit VBA kenne ich mich überhaupt nicht aus

Grundsätzlich wäre es schon völlig in Ordnung wenn die Zeilen chronologisch geordnet wären, die jeweils leeren Zellen wären so das Sahnehäubchen

Vielen lieben Dank!

[maninweb]

Hallo,

bin mir zwar immer noch nicht sicher, ob ich Dich richtig verstanden habe, aber anbei mal ein Beispiel.
In der Tabelle Quelldaten wären die ersten 4 Zeilen Deiner Tabelle. Die Tabelle Ergebnis prüft, ob ein
Datum aus der Kopfzeile in einer Datenzeile zu finden ist und wenn Ja, übernimmt dieses.

Code: PHP

1. =WENN(WENNFEHLER(VERGLEICH(D$1;Quelldaten!$D2:$K2;0);0)>0;D$1;"")

Musst Du schauen, ob das passt.

Gruß

[Packman]

Hallo Community 

Spalte b muss ein eindeutiger Wert sein,falls doppelte Werte in Spalte A sind

Sortierspalten noch ergänzen,bei  Columns("A:B"). im Code B ersetzen!

Gruß Packman

Code: [Auswählen]

Sub Sortieren_mit_leeren_Zellen()
    Dim FilteredRange() As Variant, FilteredRangeNeu() As Variant
    Dim Zelle As Long, ZelleNeu As Long
    FilteredRange = Range("A1:B" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    For Zelle = 2 To UBound(FilteredRange, 1)
        If FilteredRange(Zelle, 1) = "" Then Cells(Zelle, 1) = Cells(Zelle - 1, 1)
    Next Zelle
    Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    FilteredRangeNeu = Range("A1:B" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    For Zelle = UBound(FilteredRange, 1) To 2 Step -1
        If FilteredRange(Zelle, 1) = "" Then
            For ZelleNeu = UBound(FilteredRange, 1) To 2 Step -1
                If FilteredRangeNeu(ZelleNeu, 1) = FilteredRange(Zelle - 1, 1) And FilteredRangeNeu(ZelleNeu, 1) = FilteredRangeNeu(ZelleNeu - 1, 1) And FilteredRangeNeu(ZelleNeu, 2) = FilteredRange(Zelle, 2) Then FilteredRangeNeu(ZelleNeu, 1) = ""
            Next ZelleNeu
        End If
    Next Zelle
    Range("A1:B" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row) = FilteredRangeNeu
End Sub

[Packman]

Hallo Community 

Ops ... Im Code an 4 Stellen B ersetzen!
Ist leicht zu entdecken!

3 mal bei
Range("A1:B"

1 mal bei
Columns("A:B")

Gruß Packman

Gruß Packman

[Packman]

Hallo Community

Ich kann den Post leider nicht korrigieren!
Letzten einfach vergessen!

Bin halt ein wenig durcheinander geworden bei diesem Code(Anfänger eben) 

Gruß Packman

[Sarahsa]

Hallo Maninweb

Ja, genau so sollte es aussehen! Vielen Dank! Allerdings sind meine Excel Kenntnisse so begrenzt dass ich mich mit den Quelldaten (geschweige denn mit Codes - vielen Dank Packman!) nicht so gut auskenne und ich es nicht schaffe die Formel in meiner Liste anzuwenden dass es richtig funktioniert.

Könntest du mir dabei vielleicht auch noch helfen? Entschuldige die Umstände...

Liebe Grüsse

[maninweb]

Hallo,

kein Problem, anbei Deine Datei zurück, mit eingebauter Liste in Tabelle2.

Gruß

[Sarahsa]

Super, vielen lieben Dank, das hilft mir sehr weiter!

Damit ich die Formel übenehmen kann in eine andere Liste, kannst du mir noch zeigen wie die Tabelle Quelldaten aussehen muss?

Entschuldigen meine hundert Fragen...

Liebe Grüsse

[maninweb]

Hallo,

nein, das kann ich nicht. Denn einerseits kenne ich den Aufbau Deiner Mappe nicht und
andererseits ist die Quelldatentabelle Deine von der DB exportierte Tabelle.

Gruß

[Sarahsa]

Hallo,

Ach so, nun ist mir der Groschen auch noch gefallen Es hat geklappt! Herzlichen Dank!

Liebe Grüsse