Sortierfunktion macht komische Sachen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Sortierfunktion macht komische Sachen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Josh-77
Newbie
Newbie

Anmeldedatum: 30.10.2007
Beiträge: 15

Verfasst am: 08.11.2007, 16:31

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... Embarassed

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

_________________
Solang die dicke Frau noch singt -
ist die Oper nicht zuende... (Kettcar)

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.11.2007, 16:43

Hallo!

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

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

Josh-77
Newbie
Newbie

Anmeldedatum: 30.10.2007
Beiträge: 15

Verfasst am: 08.11.2007, 16:53

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?

_________________
Solang die dicke Frau noch singt -
ist die Oper nicht zuende... (Kettcar)

john g.
Office-Spezialist

Anmeldedatum: 10.03.2006
Beiträge: 337

Verfasst am: 08.11.2007, 17:05

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

_________________
Gruß
J.

Josh-77
Newbie
Newbie

Anmeldedatum: 30.10.2007
Beiträge: 15

Verfasst am: 08.11.2007, 17:12

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

_________________
Solang die dicke Frau noch singt -
ist die Oper nicht zuende... (Kettcar)

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.11.2007, 17:12

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

Josh-77
Newbie
Newbie

Anmeldedatum: 30.10.2007
Beiträge: 15

Verfasst am: 09.11.2007, 09:55

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

_________________
Solang die dicke Frau noch singt -
ist die Oper nicht zuende... (Kettcar)

john g.
Office-Spezialist

Anmeldedatum: 10.03.2006
Beiträge: 337

Verfasst am: 09.11.2007, 10:07

Wieso 45? In 34! Wink

_________________
Gruß
J.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Sortierfunktion+Aktualisierung	hallolledu	Microsoft Excel Hilfe	7	25.04.2008, 15:38
	Komische Zeichen beim Einfügen der Fu...	Mauerblümchen	Microsoft Word Hilfe	7	01.03.2008, 21:49
	komische Striche beim Druck am Seiten...	Fangorn	Microsoft Word Hilfe	4	24.01.2008, 10:52
	Word mach komische Sachen...	seeeb	Microsoft Word Hilfe	2	17.01.2008, 11:31
	Word macht was es will	shimi	Microsoft Word Hilfe	0	04.01.2008, 16:13

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de