---

Hallo Exceler,

ich habe ein Makro erstellt, welches mir nur die Werte einer Tabelle (ohne Formeln) in ein neues Tabellenblatt kopiert und nach Spalte "Datum" aufsteigend sortiert:

01.03.12
02.03.12
03.03.12
02.04.12
02.05.12
02.06.12

Das klappt beim Aufnehmen des Makros wunderbar,
Lasse ich das Makro dann aber anwenden, sind die Datumsangaben nur nach dem Tag aufsteigend sortiert

01.03.12
01.06.12
02.03.12
02.04.12
02.05.12
03.03.12

Die Sortierwarnung-Optionen habe ich getestet; beim Aufnehmen des Makros gibtŽs Unterschiede, kein Unterschied aber beim Anwenden des Makros.

Was mache ich falsch?

Danke!

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

welche Excel-Version verwendest du und wie sieht dein Code aus?

------------------
Bis später,
Karin

[Diese Nachricht wurde von Beverly am 25. Jul. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

... und wie sind die Zellen im Einfügebereich formatiert? Als Standard? Als Text? Hilft es vielleicht, noch eine "Formatiere-mir-den-Einfügebereich-nach-dem-Einfügen-als-Datum" ins Makro einzufügen?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Beverly und Paul,

  Beverly:

Excel 2003 SP3

Der Code:
Cells.Select
    Selection.Copy
    Sheets("Sortiert nach Datum").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Uhrzeit-Normal").Select
    Application.CutCopyMode = False
    Cells.Select
    Selection.Copy
    Sheets("Sortiert nach Datum").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    Range("D2").Select
    Range("A1:T173").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Sheets("Uhrzeit-Normal").Select
    Range("A3").Select
End Sub

  Paul:

Habe folgendes versucht:

Vorher die Zellen im Einfügebereich als Datum formatieren und
im Makro das Format mitkopieren.
Die neuen Zellen sind je als Datum formatiert, das Sortier-Ergebnis ist aber beim Anwenden des Makros trotzdem in beiden Fällen falsch 

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Feine Rückmeldung  !

Wie sieht es aus, wenn Du die Zellen nach dem Einfügen (erneut) als Datum formatieren lässt?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

versuche es mal anders herum: kopiere zuerst alles in die andere Tabelle und wandle dann dort die Formeln in Werte um:

Code:

---

Sub KopierenSortieren()
  Dim strStart As String
  strStart = ActiveCell.Address
  With Sheets("Sortiert nach Datum")
      Dim wndTabelle As Object
      Sheets("Uhrzeit-Normal").UsedRange.Copy .Range("A1")
      .UsedRange.Copy
      .Range("A1").PasteSpecial Paste:=xlValues
      .Rows("1:2").Delete Shift:=xlUp
      Application.Goto reference:=.Range("A2")
      ActiveWindow.FreezePanes = True
      .Range("A1:T173").Sort Key1:=.Range("D2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
  End With
  Application.Goto reference:=Worksheets("Uhrzeit-Normal").Range(strStart)
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hello again,

Paulchen

Die Zellen sind aber nach dem Einfügen schon (noch) als Datum formatiert!?!
Ich habe es natürlich trotzdem getestet...beim Aufnehmen des Makros ok, beim Ausführen des Makros leider die gleiche, falsche Sortierung als Ergebnis.

Beverly

Leider die gleiche, falsche Sortierung als Ergebnis.

Ich danke aber für jeden weiteren Tipp!!!

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Onkel Google hatŽs mir gezeigt  

Ein anderes Forum und ein relativ alter Beitrag mit dem gleiche Problem Datumsangaben zu sortieren:

Man muss das Datum in Tag- u. Monatsspalten zerlegen, dann sortieren und die Spalten wieder löschen. Hörte sich nicht schön an, klappt aber.

Habe mit meinen mehr als Laienhaften VBA-Kenntnissen das gefundene Makro angepasst, eingefügt und           

wen es interessiert:
  
Option Explicit
'
'   das nachfolgende Makro sortiert eine Geburtstagsliste nach Monat
'   und innerhalb der Monate nach Tag
'
'   dazu wird vor die Spalte A eine neue Spalte eingefügt, in die die
'   Geburtsmonate und Tage eingestellt werden.
'   anschließende wird aufsteigend sortiert.
'   dann wird die eingefügte Spalte wieder gelöscht.
'
'   hier wird davon ausgegangen, dass das Geburtsdatum in Spalte A
'   nachfolgend, durch die eingefügte Spalte in B steht.
'   desweiteren wird angenommen, dass das erste Datum in Zeile 4 steht
'   die Anzahl der Datumswerte in der Spalte ist beliebig, sie wird
'   ermittelt.
'
Sub Sort_Geburtstage()

Dim lLetzte  As Long     ' letzte belegte Zeile
Dim lZeile   As Long     ' For/Next Schleifen-Index
Dim iMonat   As Integer  ' Monat aus dem Geburtstag
Dim iTag     As Integer  ' Tag   aus dem Geburtstag

   Application.ScreenUpdating = False ' kein Bildschirm-Update

'          die Geburtstage stehen in Tabelle1
   With Worksheets("Tabelle1")
'          letzte belegt Zeile in Spalte A ermitteln
      lLetzte = IIf([A65536] > "", 65536, [A65536].End(xlUp).Row)
'          eine Spalte vor Spalte A einfügen
      Columns("A:A").Insert Shift:=xlToRight
'          ab Zeile 4 bis zur letzten belegten Zeile
      For lZeile = 4 To lLetzte
'          aus der ehemaligen Spalte A - jetzt B - den Monat holen
         iMonat = Month(Range("B" & lZeile).Value)
'          ist der Monat einstellig, wird er mit Vornull ausgegeben
         If iMonat < 10 Then
            Range("A" & lZeile).Value = "0" & iMonat
          Else
            Range("A" & lZeile).Value = iMonat
         End If
'          aus der ehemaligen Spalte A - jetzt B - den Tag holen
         iTag = Day(Range("B" & lZeile).Value)
'          ist der Tag einstellig, wird er mit Vornull ausgegeben
         If iTag < 10 Then
            Range("A" & lZeile).Value = Range("A" & lZeile).Value & "0" & iTag
          Else
            Range("A" & lZeile).Value = Range("A" & lZeile).Value & iTag
         End If
      Next lZeile
'          sortieren Spalte A bis Z, von Zeile 4 bis zur letzten belegten
      Range("A4:Z" & lLetzte).Sort _
                              Key1:=Range("A4"), _
                              Order1:=xlAscending, _
                              Header:=xlNo, _
                              OrderCustom:=1, _
                              MatchCase:=False, _
                              Orientation:=xlTopToBottom
'          die eingefügte Spalte wieder löschen
      Columns("A:A").Delete Shift:=xlToLeft
   End With
  
   Application.ScreenUpdating = True ' wieder Bildschirm-Update
  
End Sub

 

Danke Paulchen und Beverly

Da ich echt keine Ahnung vom Makro Programmieren habe;
Wer das Makro erweitern kann, sodass zus. nach den Jahren sortiert wird, ich wäre dankbar!!!

------------------
Geht nicht gibt's nicht.

[Diese Nachricht wurde von Kayyy am 27. Jul. 2012 editiert.]

[Diese Nachricht wurde von Kayyy am 27. Jul. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

ich habe meinen Code jetzt mal in Excel2003 getestet - auch dort wird korrekt sortiert. Ich würde deshalb darauf tippen, dass dein Datum kein "richtiges" Datum sondern Text ist und deshalb nicht wie ein Datum sortiert werden kann.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Beverly,

verrückt, bei mir wird die neue Tabelle falsch sortiert. Die Zellen sind aber als Datum deklariert!
(Ich schaue unter >Format >Zellen, oder ist das mein Fehler?)

Und könntest du hier noch einmal reinschauen  ?
http://ww3.cad.de/foren/ubb/Forum226/HTML/001691.shtml

Danke

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Kayyy:
Die Zellen sind aber als Datum deklariert!

---

Das heisst erstmal nichts, wenn der der Inhalt Text ist
Datum wird Rechtsbündig, Text wird linksbündig dargestellt (Aussgenommen Formatierungen der Zelle LI RE ZENTIERT)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

was die Zellformatierung angibt muss nicht immer korrekt sein. Mache folgendes: schreibe eine 1 in eine als Standard formatierte Zelle (am besten in einer neu erstellten Arbeitsmappe), kopiere diese Zelle (Strg+C), markiere die Zellen mit dem "falschen" Ausgangs-Datum und füge Inhalte ein (Vorgang: Multiplizieren) - das wandelt ein Text-Datum definitiv in ein richtiges Datum um. Führe anschließend den Code aus und die Sortierung sollte korrekt sein.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

das war mit schon mal neu 

...wie soll ich sagen...jetzt geben mir alle "Datwert"-Formeln, die sich auf das Datum beziehen, einen Fehler an 

Ich überschütte dich mit Unities und gelobe Excel-Nachhilfe 

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

ich sehe deine Formeln nicht - da müsstest du schon mal deine Arbeitsmappe hochladen

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Beverly,

ich hoffe die Formel reicht...die Arbeitsmappe darf ich so nicht veröffentlichen 

Spalte D: Datum
Spalten F u. G: Uhrzeit

WENN(D18="";"";WENN(NICHT(DATWERT(D18)=DATWERT(D17)+1);">11";WENN(ODER(ZEITWERT(F18)<=ZEITWERT(G17);I17="");(ZEITWERT(F18)-ZEITWERT(G17)+1)*24;(ZEITWERT(F18)-ZEITWERT(G17))*2 4))))

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Kayyy,

welcher Fehler kommt den genau? Was bekommst Du, wenn du DATWERT allein (=bessere Übersicht) auf die Zelle loslässt? Ausdruck in der Formel markieren, F9 (auswerten)?

Ist bei dieser Fehlersammlung ein Tipp für Dich dabei?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kay,

die Funktion DATWERT() wandelt ein Text-Datum in einen Datumswert um. Wenn es kein Text-Datum ist, erzeugt diese Funktion den Fehler #WERT. Falls du die Text-Datumswerte inzwischen wie oben beschrieben in ein "richtiges" Datum umgewandelt hast, benotigst du die Umwandlungsfunktion in deiner Formel nicht mehr. Dasselbe trifft auf die Funktion ZEITWERT() zu.

------------------
Bis später,
Karin

[Diese Nachricht wurde von Beverly am 31. Jul. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Juckuhu!!!

Es klappt endlich     
Es wird jetzt auch nach Jahren sortiert!

Ich danke euch!!!

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Kayyy:
... Es wird jetzt auch nach Jahren sortiert! ...

---

Das wär mir zu langsam 

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von carsten-3m:
Das wär mir zu langsam  

---

Na das hamma gerne, die ganze Zeit mucksmäuschenstill und jetzt Sprüche kloppen 

------------------
Geht nicht gibt's nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich stör die Experten nur ungern mit meinem Laienverständnis. Keine Sorge, ich meld mich schon, wenn ich Lösungsansätze parat habe 

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

evtl. hier?:

http://ww3.cad.de/foren/ubb/Forum226/HTML/001691.shtml

------------------
Geht nicht gibt's nicht.

[Diese Nachricht wurde von Kayyy am 07. Aug. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP