Office: Sortierfunktion macht komische Sachen

Hallo liebe Excel-Freaks!

Im Rahmen meiner Dipl. Arbeit erstelle ich eine Excel-Tabelle, in der u.a. Gefährdungen an Arbeitsplätzen beschrieben werden. In dieser Tabelle habe ich einen Button erstellt und mit einem Sortier-Makro verbunden (*mir selbst stolz auf die Schulter klopf*). Hatte bisher eigentlich kaum Umgang mit Excel und hab mir die Sortierung mehr oder weniger aus einem Buch abgeschaut. Einziges Problem: Wenn ich die Tabelle neu sortieren lasse, ändert sich bei ersten Klick das Datum in der 2. Tabellenzeile (aus dem 18.01.2005 wird der 19.01.2005), beim erneuten Klick dann das Datum der ersten Tabellenzeile (wie vorne beschrieben)...

...und ich hab echt keine Ahnung warum...

Vielleicht kann mir ja einer der hier anwesenden Profis weiterhelfen... Leider läßt sich die Tabelle nicht anhängen, da sie wohl zu groß ist (falls jemand sie ansehen möchte, verschick ich sie gerne per Email)

Im Voraus schon vielen Dank und liebe Grüße
Josh

 

Hallo!

Auf welchem Wege wird das Datum denn eingefügt?
Per Formel?
Per Makro?
Wie sieht dein Tabellenaufbau aus und wie das Sortiermakro?

 

Hi Schatzi,

erstmal danke für die ultraschnelle Antwort!

Also das Datum wird manuell eingegeben. Habe dann eben den relevanten Tabellenbereich markiert, nach Datum sortiert und dabei aufgezeichnet. Leider hab ich keinen wirklichen Plan von Visual Basic, hier mal das Sortiermakro:

Sub Sortieren()
'
' Sortieren Makro
' Makro am 08.11.2007 von Recherju aufgezeichnet
'

'
Range("A8:H25").Select
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Selection.Sort Key1:=Range("G8"), Order1:=xlDescending, Key2:=Range("A8") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("G9").Select
ActiveCell.FormulaR1C1 = "1/19/2005"
Range("G10").Select
End Sub

Aber wenn ich mir den Text jetzt so anschau, dann steht da ja was vom 19.01.05... hängt bestimmt damit zusammen, oder? Wie müßte ich das ändern?

 

Hallo,

das reicht aus, um nach Spalte g zu sortieren:

Sub Sortieren()
'
' Sortieren Makro
' Makro am 08.11.2007 von Recherju aufgezeichnet
'

'
Range("A8:H25").Select
Selection.Sort Key1:=Range("G8"), Order1:=xlDescending, Key2:=Range("A8") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
End Sub

 

Hallo John und Schatzi,

funktioniert einwandfrei!

Nochmals vielen Dank für die sehr schnelle Hilfe... finde das Forum hier super, hab bei meinen anderen "Problemchen" über die Suchfunktion bereits viele nützliche Tipps gefunden!

Nochmals vielen Dank und liebe Grüße
Josh

 

Hallo!

Das Makro macht folgendes:
Es sortiert den Bereich A8:H25 im ersten Kriterium ABsteigend nach Spalte G und im zweiten Kriterium AUFsteigend nach Spalte A.
Danach wird in G9 das Datum 19.01.2005 eingetragen.

Wenn du einfach nur nach deinen Kriterien sortieren möchtest, dann reicht

Code:

Sub Sortieren()
Range("A8:H25").Sort Key1:=Range("G8"), Order1:=xlDescending, Key2:=Range("A8") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
End Sub 

 

Hallo Schatzi,

auch Dir nochmal ein Extra-Danke für die kurze Erklärung... Der Excel-Depp (ich) weiß da leider nicht so genau was er tut... so langsam wird's heller...

Werde wahrscheinlich in den nächsten 2 Monaten noch die eine andere Frage posten, und bedanke mich hier nochmal für die großartige Unterstützung (ich mein, komplette Problemlösung innerhalb von 45 Minuten ist echt erstaunlich).

Gruß und bis zum Nächsten Mal.
Josh

 

Wieso 45? In 34! ;-)