Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung nach Datum mit VBA funktioniert nicht

Forumthread: Sortierung nach Datum mit VBA funktioniert nicht

Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 18:53:49
Guido
Einen schönen guten Abend,
ich hoffe mal wieder auf Eure Hilfe.
Also es werden Daten automatisch in eine Tabelle (Name: Daten) geschrieben. In Spalte A wird ein Datum übertragen. Die Datumsspalte ist TT.MM.JJJJ formatiert.
Mit dem unten stehenden Code möchte ich, dass, sobald eine neue Zeile in die Tabelle geschrieben wird, diese nach Spalte A (Datum) aufsteigend sortiert wird.
Dies klappt auch "fast".
Es wird zwar sortiert, jedoch erfolgt die Sortierung lediglich nach den Tagen, nicht nach Monat bzw. Jahr. Also nach der Sortierung habe ich folgende Reihenfolge
01.01.2004
01.02.2004
02.01.2004
03.01.2004
03.02.2004 usw.
Monats- und Jahresangaben werden ignoriert. Was ist falsch an dem Code?
Herzlichen Dank für Eure Hilfe und
Gruß Guido

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").CurrentRegion.Sort _
Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlSortColumns, _
DataOption1:=xlSortNormal
End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 19:27:46
PeterW
Hallo Guido,
die Daten liegen nicht als Daten sondern als Text vor, also liegt der Fehler in der Übertragung! Wie werden die "Daten" denn übertragen?
Gruß
Peter
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:38:52
Guido
Hallo Peter,
die Daten werden mittels Code aus einer Textbox in eine andere Tabelle geschrieben. Es muss in diese Textbox im Format TT.MM.JJJJ eingegeben werden.Von dort werden die Daten gewissermaßen in eine Mastertabelle (Name Daten) übertragen.
In beiden Tabellen ist die Formatierung der Spalte (A) TT.MM.JJJJ.
Wenn das Datum als Text vorliegt, müsste ich dann nicht mit der Sortierung Erfolg haben, wenn ich DataOption1:=xlSortTextAsNumber verwende? Funktionierte aber auch nicht.
Gruß Guido
Die Daten werden folgendermaßen in die Tabelle Daten übertragen, weil ich einmal eine Gesamttabelle und monatlich getrennte Tabellen benötige.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
If Target.Column <> 6 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
iRow = Target.Row
With Worksheets("Daten")
If IsEmpty(.Range("A1")) Then
iRowL = 1
Else
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Range(Cells(iRow, 1), Cells(iRow, 6)).Copy .Cells(iRowL, 1)
End With
Range("A1").CurrentRegion.Sort _
Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

Anzeige
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:45:39
PeterW
Hallo Guido,
der Fehler liegt beim Übertragen der Werte aus der Textbox. In Textboxen steht immer TEXT, deswegen heißen die so. :-)
Mach beim Übertragen aus den Texten ein Datum - CDate wäre wohl das Schlüsselwort. Leider lässt sich aus deinem Code nicht erahnen, wie die Texte der Textboxen ursprünglich in eine Tabelle geschreiben werden.
Gruß
Peter
Anzeige
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:50:18
Guido
Hallo Peter,
da kann ich weiterhelfen...
Der Text aus den Textboxen wird folgedermaßen übertragen:
Private Sub cmdDatenübernahme_Click()
Dim NeueZeile As Long
With Worksheets(Format(txtBuchungsdatum.Value, "MMM"))
NeueZeile = .Range("B65536").End(xlUp).Row + 1
.Cells(NeueZeile, 1) = txtBuchungsdatum.Value
.Cells(NeueZeile, 2) = txtEmpfänger.Value
.Cells(NeueZeile, 3) = txtVerwendungszweck.Value
.Cells(NeueZeile, 4) = txtEinnahmen.Value
.Cells(NeueZeile, 5) = txtAusgaben.Value
.Cells(NeueZeile, 6) = cboKategorie.Value
Also müsste ich in der Zeile, in der ich den Inhalt aus txtBuchungsdatum an die Tabelle übergebe, den "Text" mittel CDate in ein Datum wandeln?
Gruß Guido
Anzeige
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:54:06
PeterW
Hallo Guido,
so würde ich das auch sehen:
.Cells(NeueZeile, 1) = CDate(txtBuchungsdatum.Value)
Gruß
Peter
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:56:39
Guido
Hallo Peter,
da such ich wie ein Blöder... und das Gute liegt so nah. Ich danke Dir recht herzlich und wünsche einen schönen Abend.
Gruß Guido
AW: Sortierung nach Datum - Ergänzung!!
04.11.2004 20:58:33
PeterW
Hallo Guido,
und bevor du jetzt alle schon in der Tabelle stehenden Daten neu eingibst markliere eine leere Zelle, kopiere sie (STRG+C), markiere die schon vorhandenen "Daten" (die keine sind), rechte Maustaste, Inhalte einfügen, Werte, Addition.
Gruß
Peter
Anzeige
AW: Sortierung nach Datum - Ergänzung!!
04.11.2004 21:10:55
Guido
Hallo Peter,
klasse Tip... habe allerdings momentan nur Testdaten. Normalerweise hättest Du Dir spätestens jetzt ein großes "Bier" verdient.
Besten Dank
Guido
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 19:31:34
andre
Hallo Guido,
sieht so aus, als ob Dein Datum keins ist. Beim Datum stehen die Werte standardmäßig rechts, ist das so? Formatiere mal Spalte B oder wo frei ist als Datum, schreibe in B2 =Wert(A2), nach unten ziehen, alles kopieren und Werte einfügen und dann mal die Spalte sortieren ...
Anzeige
AW: Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 20:45:42
Guido
Hallo Andre,
herzlichen Dank für die Antwort. Scheinbar wird der Zellwert nicht als Datum interpretiert, denn Du hast recht - das "Datum" ist links ausgerichtet. Wenn ich Deinen Vorschlag verfolge, kommen ich zu dem gleichen Ergebnis.

Danke und Gruß Guido
;

Forumthreads zu verwandten Themen

Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
Anzeige
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Sortieren nach Datum
Andreas

Hallo Forum,
ich habe eine Tabelle in der in Spalte A nur Datumswerte stehen, in B und C die dazugehörigen Aufgaben.
nun möchte ich das immer das nächste aktuelle datum in der ersten zeile steht.
ist ein Datum vorbei soll es sich ans Ende der Tabelle stellen.
Vielen Dank im vorr...
15.08.2009 18:58:53
Thread-ID: 1096168
3 Beiträge
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
sortieren nach datum
Andreas

Hallo Forum,
ich suche eine Möglichkeit eine Liste nach Datum (SpalteA)zu sortieren.
Dabei soll das nächste aktuelle Datum oben stehen. Die abgelaufenen sollen sich unten angliedern.
Vielen Dank im vorraus
13.10.2009 16:13:57
Thread-ID: 1109369
10 Beiträge
Anzeige
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Filter funktioniert nicht
Mandy

Hallo,
ich bekomme aus einer Datenbank Daten in mein Excel Template geschrieben.
darunter hat es auch zwei Spalten mit Datums, das Problem: es steht zwar schön sauber das Datum drin (21.10.2009) aber die Spalte ist als TEXT formatiert.
In diesem Fall funktionieren die Filter (Autofi...
21.10.2009 12:05:08
Thread-ID: 1111038
4 Beiträge
ComboBox nach Datum sortieren
Gerhard

Hallo zusammen,
Bitte um Makro Hilfe!
Wie kann ich im beigefügten Makro die beiden ComboBoxen aufsteigend nach Datum sortiert in Userform anzeigen?
Vielen Dank für die Hilfe
Gruß Gerhard
Die Datei https://www.herber.de/bbs/user/65309.xls wurde aus Datenschutzgründen gelöscht...
24.10.2009 22:10:46
Thread-ID: 1111897
4 Beiträge
Bilder sortieren nach Aufnahmedatum
Franz

Hallo Fachleute,
ich habe in einem Ordner jpeg-Dateien aus verschiedenen Kameras mit unterschiedlichen Namen und Nummern. Im Windows-Explorer lassen sich die Dateien auch nach Aufnahmedatum sortieren.
Nun möchte ich die Dateien auch nach Aufnahmedatum sortiert in eine Excel-Datei einles...
04.11.2009 13:27:30
Thread-ID: 1114481
6 Beiträge
Anzeige

Infobox / Tutorial

Sortierung nach Datum in Excel mit VBA

Schritt-für-Schritt-Anleitung

  1. Vorbereitung der Tabelle: Stelle sicher, dass deine Datumsspalte korrekt formatiert ist (TT.MM.JJJJ). Überprüfe, ob die Werte als Datum und nicht als Text gespeichert sind.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Code einfügen: Füge den folgenden Code in das Worksheet-Modul ein, welches die Daten enthält:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then ' Spalte A für Datum
       Range("A1").CurrentRegion.Sort _
       Key1:=Range("A2"), _
       Order1:=xlAscending, _
       Header:=xlYes, _
       OrderCustom:=1, _
       MatchCase:=False, _
       Orientation:=xlTopToBottom
   End If
End Sub

  4. Datenübertragung: Stelle sicher, dass beim Übertragen der Daten aus der Textbox das Datum korrekt umgewandelt wird. Verwende CDate, um den Text in ein Datum zu konvertieren:

    .Cells(NeueZeile, 1) = CDate(txtBuchungsdatum.Value)

  5. Testen: Füge ein Datum in die Textbox ein und beobachte, ob die Tabelle korrekt nach Datum sortiert wird.

Häufige Fehler und Lösungen

  • Excel nach Datum sortieren funktioniert nicht: Wenn die Daten als Text gespeichert sind, funktioniert die Sortierung nicht richtig. Stelle sicher, dass die Zellen als Datum formatiert sind.

  • Excel sortiert Datum nicht richtig: Wenn die Sortierung nur nach Tagen und nicht nach Monaten oder Jahren erfolgt, überprüfe die Formatierung der Zellen.

  • Datenübertragung: Achte darauf, dass beim Übertragen der Daten aus der Textbox die Umwandlung in ein Datum erfolgt. Andernfalls wird das Datum als Text behandelt, was die Sortierung beeinträchtigt.

Alternative Methoden

  • Manuelle Sortierung: Du kannst auch manuell sortieren, indem du die Daten auswählst, dann auf "Daten" und "Sortieren" klickst. Wähle die Datumsspalte aus und sortiere sie aufsteigend.

  • Excel Filter: Verwende den Filter, um nach bestimmten Datumsbereichen zu filtern. Achte darauf, dass der Filter korrekt auf die Datumsspalte angewendet wird.

Praktische Beispiele

  • Beispiel für korrekten Code:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
       Application.EnableEvents = False
       Me.Range("A1").CurrentRegion.Sort _
       Key1:=Me.Range("A2"), _
       Order1:=xlAscending, _
       Header:=xlYes
       Application.EnableEvents = True
   End If
End Sub

  • Übertragung von Daten:

    Private Sub cmdDatenübernahme_Click()
   Dim NeueZeile As Long
   With Worksheets("Daten")
       NeueZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       .Cells(NeueZeile, 1) = CDate(txtBuchungsdatum.Value)
       ' Weitere Datenübertragungen
   End With
End Sub

Tipps für Profis

  • Datenvalidierung: Implementiere eine Datenvalidierung für die Textbox, um sicherzustellen, dass nur gültige Datumsformate eingegeben werden.

  • Fehlerbehandlung: Füge eine Fehlerbehandlung im VBA-Code hinzu, um mögliche Laufzeitfehler abzufangen, insbesondere bei der Umwandlung von Text in Datum.

  • Automatische Aktualisierung: Stelle sicher, dass das Arbeitsblatt nach jeder Änderungen automatisch aktualisiert wird, um die Sortierung nach Datum jederzeit zu gewährleisten.

FAQ: Häufige Fragen

1. Warum wird mein Datum nicht korrekt sortiert?
Das Datum könnte als Text gespeichert sein. Überprüfe die Formatierung der Zellen und verwende CDate, um den Text in ein Datum zu konvertieren.

2. Was kann ich tun, wenn Excel nach Datum filtern nicht funktioniert?
Stelle sicher, dass die Filter korrekt auf die Datumsspalte angewendet werden und die Daten als Datum und nicht als Text formatiert sind.

3. Wie kann ich die Sortierung nach Datum automatisieren?
Verwende VBA, um die Sortierung automatisch auszuführen, wenn neue Daten eingegeben werden. Achte dabei darauf, die Umwandlung von Text in Datum zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige