Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung Datum nach Text

Sortierung Datum nach Text
walter
Guten Morgen Allerseits,
ich habe eine Tabelle, es werden die Daten reinkopiert und anderem auch die
Datumswerte.
Nun hatte ich festgestellt das die Spalte der Datumswerte nicht sortiert wird, habe
mal aufgezeichnet und da klappt es.
Wenn ich nun das aufgezeichnete wieder ablaufen lasse, klappt es nicht,
WIESO?
Selection.Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
mfg walter mg
Zusätzlicher Hinweis
walter
Hallo Zusammen,
habe gerade festgestellt, wenn ich den gesamten Bereich selektieren und
das Menü unter "Daten" Sortieren und dann in der
"Sortierwarnung" auf: "Alles was wie eine Zahl aussieht, als Zahl sortieren"
auswählen, klappt es.
mfg walter mg
AW: Sortierung Datum nach Text
Dirk
Hallo!
Ist dein Bereich selektiert, indem Du die Datumswerte sortieren moechtest? Falls Nein solltest Du das in Deiner Formel erledigen.
Zb:

Sub sorting()
Range("L4").Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub


Falls Du eine kopfzeile hast, welche nicht mitsortiert werden soll, reduziere den Wert fuer die startzelle (Range("L3").sort)
Gruss
Dirk aus Dubai

Anzeige
Hallo Dirk, geht nicht
walter
Guten Morgen Dirk,
bist Du wirklich in Dubai?
Hie mein Makro, es wird selektiert und dann sortiert genau wie dein Makro.
Dim z As Long
z = Range("G3").End(xlDown).Row
ActiveSheet.Range(Cells(4, 4), Cells(z, 31)).Select
Selection.Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
mfg walter mg
AW: Hallo Dirk hier Musterdatei
Dirk
Hallo!
Jetzt sehe ich Dein Problem. Hatte sowas auch schon mal. Musst auf den wert pruefen, ob er wie ein Datum aussieht und dann ggf umformatieren.
Schau mal hier, das hat mir damals auch geholfen.
Gruss
Dirk aus Dubai (ja, ich bin in Dubai bei z.Z. 35 Grad ;-)
Hallo Dirk Wo finde nichts
walter
Hallo Dirk,
finde nichts zum schauen ?
mfg walter mg
AW: Hallo Dirk hier Musterdatei
Daniel
Hi
ändere mal das Zahlenformat in Spalte L nach "Standard" und du wirst erkennen, daß in den 3 Zeilen mit dem Datum 30.04.2008 kein Datum, sondern Text enthalten ist.
wenn du diese Texte in ein Datum umwandelst (dazu Zelle aktivieren, 1x in die Bearbeitungszeile klicken und ENTER drücken), dann funktioniert auch die Sortierfunktion richtig.
Gruß, Daniel
btw, so wie du die Daten selektierst, würde ich die Sortieroption "Header" von "xlGuess" auf "xlNo" umstellen.
Anzeige
Hey Daniel hast Recht aber
walter
Hallo Daniel,
hast Recht aber wenn ich die Menge an Zahlen einsetze kann ich nicht
jede einzelne Zelle bearbeiten.
Habe gerade mal die Spalte in "Standard" aufgezeichnet, sortiert und später wieder
die Spalte "L" in Datum umformatiert.
Habe mal aufgezeichnet, müßte man doch irgendwie ins Makro einbauen können ?
Range("L4:L53").Select
Selection.NumberFormat = "General"
z = Range("G3").End(xlDown).Row
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("L4:L53").Select
Selection.NumberFormat = "m/d/yyyy"
Range("L3").Select
mfg walter mg
Anzeige
AW: Hallo Dirk hier Musterdatei
Erich
Hallo Walter,
hier auch gleich noch ein Vorschlag, wie du den Code ohne Select schreiben könntest: 

Option Explicit
Private Sub CommandButton2_Click()
Dim z As Long
z = Range("G3").End(xlDown).Row
'  ------------------- sortieren nach Typ Aufsteigend ----------------------
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("G4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Private Sub CommandButton1_Click()
Dim z As Long
z = Range("G3").End(xlDown).Row
'  ------------------- sortieren nach Datum Aufsteigend --------------------
ActiveSheet.Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Code - Korrektur
Erich
Hi Walter,
die zweite Prozedur hatte noch 2 Haken drin
(nicht falsch, aber unschön und evtl. störend) 

Private Sub CommandButton1_Click()
Dim z As Long
z = Range("G3").End(xlDown).Row
'  ------------------- sortieren nach Datum Aufsteigend --------------------
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Danke Erich aber
walter
Hallo Erich,
danke für die Kürzung, funktioniert.
Leider werden aber noch aus dem Monat April nach unten gesetzt.
Da ich später mehr als 50 Zeilen habe, ist es sehr mühsam dies mittels jede einzelne
Zelle zu bearbeiten.
mfg walter mg
Anzeige
AW: Danke Erich aber
Dirk
HAllo!
Falls Du die letzte Zeile nicht festlegen willst kannst Du das ja mal so probieren:
Range(Cells(4, 4), Cells(z, Cells.SpecialCells(xlCellTypeLastCell).row)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Damit sollte dann immer die letzte belegte zelle in dieser spalte ermittelt werden und damit in der Suche enthalten sein.
Gruss
Dirk aus Dubai
Danke Dirk
walter
Hallo Dirk,
danke für die Information.
Das Problem habe ich leider noch nicht bewältigt.
Habe mal dies eingesetzt: Range("L4:L53").Select
Selection.NumberFormat = "General"
z = Range("G3").End(xlDown).Row
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("L4:L53").Select
Selection.NumberFormat = "m/d/yyyy"
Range("L3").Select
z = Range("G3").End(xlDown).Row
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
weiß allerdings noch nicht wie ich die Spalte "L" das Format direkt nach dem ich den gesamten
Bereich selektiert habe.
Aber so müßte es doch gehen oder ?
mfg walter mg
Anzeige
Hallo Dirk, Daniel u. Erich ich habe die Lösung !
walter
Hallo Dirk, Daniel und Erich,
bitte mal schauen, ich glaub ich habe die Lösung !
Habe mal das Makro so geändert:
Dim z As Long
z = Range("a3").End(xlDown).Row
ActiveSheet.Range(Cells(4, 4), Cells(z, 31)).Select
'----- sortieren nach Erstzulassung Aufsteigend ------------
' Selection.Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("L4:L65000").Select
Selection.NumberFormat = "General"
z = Range("G3").End(xlDown).Row
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("L4:L65000").Select
Selection.NumberFormat = "m/d/yyyy"
Range("L3").Select
Range(Cells(4, 4), Cells(z, 31)).Sort _
Key1:=Range("L4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
es ist zwar etwas umständlich, ich hatte jetzt alles richtig Sortiert,
mfg walter mg
Anzeige
AW: Hallo Dirk, Daniel u. Erich ich habe die Lösung !
Daniel
Hi
wenn du TEXT-Datums in echte Datums umwandeln willst, dann geht das auch recht einfach über die Funktion DATEN - TEXT IN SPALTEN
oder als Code:

Range("L4:L53").TextToColumns Destination:=Range("L4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True


Gruß, Daniel

Aber ich weiß doch die ...
walter
Hallo Daniel,
ich weiß doch nicht wie Lang der Bereich ist ?
mfg walter mg
AW: Aber ich weiß doch die ...
Daniel
Hi
du stellst doch die Länge des bereiches mit der in der Variablen z fest.
du sollest den Code, den du verwendest, schon besser kennen.
in einen Range-Bereich kann man die Variable Z auf diese Weise einbauen:
Range("L4:L" & z)
ansonsten ist es für die TEXT in SPALTEN-funktion kein Problem, wenn der Bereich grösser gewählt wird als tatsächlich Daten vorhanden sind: leere Zellen bleiben leere Zellen.
Gruß, Daniel
Anzeige
Hallo Daniel
walter
Hallo Daniel,
werde noch weiter probieren müssen, danke für den Hinweis,
mfg walter mg
AW: Aber ich weiß doch die ...
Peter
Hallo Walter,
das ist doch eine deiner leichtesten Übungen:

Public Sub InDatumWandeln()
Dim WkSh    As Worksheet
Dim lZeile  As Long
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
With WkSh
.Range("L4:L" & .Cells(Rows.Count, 12).End(xlUp).Row).TextToColumns _
Destination:=Range("L4"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
FieldInfo:=Array(1, 4)  ', TrailingMinusNumbers:=True
End With
End Sub


Gruß Peter

AW: Aber ich weiß doch die ...
Peter
Hallo Walter,
wenn du jetzt noch einen Punkt vor das Range setzt, ist es noch besser.
Destination:=.Range("L4"), _
Gruß Peter
Meine Datumswerte wurden..
walter
Hallo Peter,
danke aber meine Datumswerte wurden verändert, aus 20.05.2008 wurde
20.08.2008, leider nicht sortiert.
Bitte Teste das doch mal mit meiner Musterdatei,
danke im voraus,
herzlichst walter mg
Hier die akt.Testdatei
walter
Hallo Peter,
es soll die Datumsspalte sortiert werden, habe mal farbig eingefärbt.

Die Datei https://www.herber.de/bbs/user/56295.xls wurde aus Datenschutzgründen gelöscht


mfg walter
AW: Hier die akt.Testdatei
Peter
Hallo Walter,
bei mir sortiert es (meine ich einwandfrei) so, wie im angehängten Beispiel - siehe Sort im Modul1
https://www.herber.de/bbs/user/56297.xls
Gruß Peter
Hallo Peter, leider nicht
walter
Hallo Peter,
wieso bei mir nicht, habe meine Orginal Daten reinkopiert.
Erst einmal nach Typ sortieren, dann nach Datum.
https://www.herber.de/bbs/user/56299.xls
mfg walter mg
So kopiere ich die Daten
walter
Hallo Peter,
so kopiere ich die Daten von meiner UF ist die Datenbank, vielleicht muß ich da das
Format einbringen ?
ActiveCell.Offset(0, 8) = TextBox8 ' Datum
und von meiner 2.UF aus so:
ActiveCell.Offset(0, 8) = Label95 'Datum
mfg walter mg
AW: So kopiere ich die Daten
Peter
Hallo Walter,
entweder du fragst deine Eingabfelder vorher ab, ob sie gefüllt sind UND ein Datum enthalten
If Trim(TextBox8.Value) "" then
if IsDate(TextBox8.Value) then
ActiveCell.Offset(0, 8) = CDate(TextBox8).value)
Else
MsgBox "Die TextBox enthält kein kalendarisch richtiges Datum."
End If
Else
MsgBox "Es wurde nichts eingegeben."
End If
Oder du bist sicher, dass etwas vernünftiges eingegeben wurde, dann übernimm es gleich mit CDate(TextBox8.Value).
Gruß Peter
AW: Hallo Peter, leider nicht
Peter
Hallo Walter,
das sollte nach der vielen Zeit, in der du mit VBA arbeitest kein Problem sein.
Dreh die beiden Keys einfach um:
Range("D4:AD" & .Cells(Rows.Count, 12).End(xlUp).Row).Sort _
Key1:=.Range("G4"), Order2:=xlAscending, _
Key2:=.Range("L4"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Gruß Peter
Hallo Peter
walter
Hallo Peter,
habe dies durchgeführt:
ActiveCell.Offset(0, 8) = CDate(TextBox8).value)
ActiveCell.Offset(0, 8) = CDate(Label95)
klappt soweit.
Nur dies konnte ich nicht umsetzen:
Datenbank.Offset(0, 8).Value = Cells(ActiveCell.Row, 11)
kann doch nicht soviel wie Du glaubst. Ohne Deine Hilfe läuft eigentlich nicht soviel,
vielleich kannst Du mir dies noch umsetzen,
danke im voraus,
mfg walter mg
AW: Datenbank? - Text zu Datum
Erich
Hi Walter,
Peter bin ich zwar nicht, aber vielleicht kann ich dir trotzdem weiterhelfen.
Bei
ActiveCell.Offset(0, 8) = CDate(TextBox8).value)
stört das .value)
Entweder so:
ActiveCell.Offset(0, 8) = CDate(TextBox8)
oder so:
ActiveCell.Offset(0, 8) = CDate(TextBox8.value)
Was soll die folgende Zeile tun?
Datenbank.Offset(0, 8).Value = Cells(ActiveCell.Row, 11)
Was ist Datenbank? Wenn das ein Bereich wäre Datenbank.Offset(0, 8) der um 8 8 Spalten nach rechts
verschobene Bereich. Dem kannst du aber so keinen einzelnen Wert zuweisen.
Ohne deine Mappe wird nicht so recht klar, was du brauchst.
Woher kommt eigentlich ActiveCell? Da scheint es unnötige "Selects" zu geben...
Noch eine Bemerkung zur Umwandlung von Text in Datum:
Bei der TextToColumns-Methode werden richtige Datumse teilweise geändert, was sicher nicht sein soll.
Wenn in einer Spalte Datum und Text-Datum durcheinander vorkommen,
kannst du die Texte damit in Datumse überführen: 

Sub TextZuDatum()
Dim lngZ As Long, rng As Range
lngZ = Cells(Rows.Count, 12).End(xlUp).Row
For Each rng In Range(Cells(4, 12), Cells(lngZ, 12))
Select Case VarType(rng)
Case vbDate
' ist schon Datum, also ok
Case vbString
If IsDate(rng) Then
rng = CDate(rng)
Else
MsgBox "Zelle " & rng.Address(0, 0) & ": kein gültiges Datum: " & rng
End If
Case Else
MsgBox "Zelle " & rng.Address(0, 0) & ": weder Text noch Datum: " & rng
End Select
Next rng
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Erich Danke -)
walter
Guten Abend Erich,
danke für die Unterstützung und die Hinweise.
Diese Zeile:
Datenbank.Offset(0, 8).Value = Cells(ActiveCell.Row, 11)
da kopiere von der aktiven Tabelle in die Datenban-Tabelle, habe aber gerade festgestellt
das ich diese Zeile so stehen lassen kann.
Das Datum von der Aktiven Tabelle ist ja hinterlegt in den anderen Zeilen
hatte ich das Datum von der UF kopiert, deshalb wurde dies per Text in die
Datenbanktabelle eingefügt.
Ich habe ja die 2 Zeilen geändert, so werden jetzt die Datumswerte Sauber eingefügt.
Danke nochmals an ALLE anderen ebenfalls
und
noch einen schönen Abend,
mfg walter mb

301 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Datum als Text kopieren
Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum ko...
16.09.2008 18:22:00
Thread-ID: 1010173
4 Beiträge
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Aktuelles Datum in Registerkarte
Herbert

Hallo Expert,
meine Datei hat mehrere Registerkarten. "Summe";"Netto";"Brutto". Ich möchte nach dem eigentlichen Titel der einzelnen Registerkarte das Tagesdatum in der Form JJJJMMTT ausgegeben haben. z.B. "Summe_20081021".
Nach dem Öffnen der Datei am morgigen Tag sollte dann natürlich...
21.10.2008 14:29:41
Thread-ID: 1018005
16 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Label

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
16
9
5
3
2
11
1
15
4
2
6
10
4
14
2
4
3
8
3
3
3
14
4