in einer Tabelle "Plandaten" habe ich eine Aufstellung über Zahlungsströme und gebe in Spalte A z.B. folgende Datumsformel ein:
="31.01." & Jahr(Heute()). Es wird dann angezeigt: 31.01.2002.
Die Zelle selbst ist als "Datum" formatiert.
In anderen Tabellen stehen in Spalte A ebenfalls Datumsangaben, allerdings nicht in Form einer Formel, sondern als normales Datum. Sie sind ebenfalls als "Datum" formatiert.
Über eine Prozedur kopiere ich alle Zeilen aus allen Tabellenblättern in ein neues Tabellenblatt.
Beim Kopieren werden keine Formeln, sondern Werte eingesetzt.
Im neuen Tabellenblatt will ich alle Zeilen nach Datum sortieren. Das klappt aber nicht.
Während sich die Zeilen mit "normalem" Datumsformat sortieren lassen, funktioniert das bei den Zeilen mit den über die Formel erzeugten Datumsangaben nicht.
Wähle ich eine "normale" Zelle aus und frage über Format/Zellen/Zahlen nach dem Zellformat, wird "Standard" angezeigt. Der Zellwert ist rechtsbündig ausgerichtet. Mache ich das Gleiche mit einer Zelle, die vorher eine Datumsformel enthalten hat, bekomme ich ebenfalls "Standard" angezeigt. Der Zellwert ist hier jedoch - automatisch - linsbündig ausgerichtet.
Wähle ich nun beide Zellen gleichzeitig aus und frage über Format/Zellen/Zahlen nach dem Zellformat, bleibt die Anzeige leer, d.h. es liegen unterschiedliche Formate vor, obwohl beide Male als Format "Standard" angezeigt wurde.
Daraufhin habe ich die Datumszellen kopiert und mit "1" multipliziert:
Range("J1") = 1
Range("J1").Copy
With shZiel.Range(Cells(intRow, 1), Cells(intZeile + intRow - 4, 1)) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
.NumberFormat = "dd/mm/yyyy"
End With
Range("J1").ClearContents
Auch das klappt merkwürdigerweise nicht. Mache ich das Gleiche aber von Hand zu Fuß in der Tabelle selbst, klappt's.
Kann mir jemand sagen, was hier falsch ist. Blicke nicht mehr durch.
Vielen Dank.
Jürgen