Makro nach datum sortieren lassen

[Hansi]

Hallo,

ich habe ein Makro erzeugt,welches mir meine Daten momentan akzeptabel sortiert.Nur kann es keine Datumsortierung machen.Wie geht das?

Beispiel: Meine Daten bekomme ich so.

11-04-11 00:05 wert 1
11-04-11 00:10 wert 2
.
.
.
.
12-04-11 00:05 wert 1
12-04-11 00:10 wert 2


Momentan sortiert mir mein Makro die Daten so.

11
wert1
wert2
.
.
.
.
.
12
wert1
wert2
.
.
.
.


Das funktioniert nur so lange wie auch der 11.Tag 288 Einträge hat.Hat dieser nur 280 Einträge so schreibt mir das Makro schon Daten vom 12.Tag zum 11.Tag.

Gruß Hansi

[komma4]

So wird Dir keiner helfen können... wenn Du den Code hier nicht zeigst.

[Hansi]

Hallo komma4,

hier mal der Code.

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

End Sub



sub test1
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$F$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = "=tag(a1)"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$1:$C$288"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$F$3:$G$291"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "ToPoint"
args8(0).Value = "$H$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "$F$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$H$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args11())

rem ----------------------------------------------------------------------
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "StringName"
args12(0).Value = "=tag(a289)"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$B$289:$C$576"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args13())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args15(0) as new com.sun.star.beans.PropertyValue
args15(0).Name = "ToPoint"
args15(0).Value = "$H$3:$I$291"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args15())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "ToPoint"
args17(0).Value = "$J$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args17())


end sub

Gruß Hansi

[Karolus]

Hallo
Hansi, du hast da ein paar "Copy und Paste" -aktionen als Makro aufgezeichnet - wie möchtest du *damit* sortieren ?!

Karo

[Hansi]

Hallo Karolus,

ich hoffe ich kann deine Frage richtig beantworten.

Ich habe über "Makro aufzeichnen" die Tabelle so sortiert wie ich es mir vorstelle.Die Daten habe ich in der Aufzeichnung kopiert und wieder eingefügt.

Am Anfang der Aufzeichung hab ich die Zelle F1 die Formel "=Tag(a1)" geschrieben und darunter alle von dem Datum erzeugten Daten(288 Stück) kopiert und eineingefügt.Ab Zeile 289 fängt das neu Datum an. Also in Zelle H1 die Formel "=Tag(a289)" und darunter die Daten die alle von dem Datum erzeugt wurden kopiert und eingefügt.

In der Ausgabgsdatei stehen das Datum immer in Spalte A und die Meßwerte in Spalte B und C.