Office: (Office 2010) Zeilen sortieren nach einer Spalte ausserhalb des Bereichs

Hi all!

Ist denn mein Problem so schwierig?? Immer ernte ich nur Kopfschütteln.

Erklärung:
Die Rennleitung hat eine Veranstaltersoftware. Diese exportiert mir ein Excel-Sheet mit den Spalten A, B und C. Diese Spalten dürfen keinesfalls verändert werden!!
In meinem Beispiel startet also zuerst die Startnummer 5, dann 6, 7, dann 1, 2, 3 usw.
Von einer zweiten Software kann ich nun nach dem Rennen die Zeiten und Strafpunkte exportieren und muss sie zwingend in Spalte D und E einfügen.
In meinem Beispiel hat also die Startnummer 11 gewonnen.

Mein Problem:
Ich muss nun die Zeilen von D, E und F nach der Spalte A sortieren!
Das Endergebnis sollte wie in Tabelle 2 sein.
Zuoberst sollte also die Zeit und Strafpunkte der Startnummer 5 sein!

Gibt es da eine schnelle Sortierfunktion, oder wie??
Die Funktion "SVERWEIS" habe ich schon probiert. Funktioniert auch, dauert mir aber viel zu lange und ist umständlich.

Wer kann mir helfen?

Besten Dank schon zum voraus...

Christoph

:)

 

Hallo Christoph,

wenn der Tabellenaufbau dem Original entspricht, dann vielleicht so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub sortSpecial()
Dim rng As Range

On Error GoTo ErrExit
Application.ScreenUpdating = False

Set rng = Range("D1:G" & Cells(Rows.Count, 4).End(xlUp).Row)
rng.Cells(1, 4) = "XXX"
With rng.Cells(2, 4).Resize(rng.Rows.Count - 1, 1)
.Formula = "=MATCH(F2,A:A,0)"
.Value = .Value
End With

rng.Sort Key1:=rng.Cells(1, 4), Order1:=xlAscending, Header:=xlYes

rng.Columns(4).Clear

ErrExit:
Application.ScreenUpdating = True
Set rng = Nothing
End Sub





« Gruß Sepp »

 

Hallo Sepp

Besten Dank für Deine schnelle Antwort.

Du denkst also, es gibt keine Sortier-Funktion von Excel?
Ist mein Problem nur über ein Makro oder VBA zu lösen??


Besten Dank für Deine Hilfe

 

Hallo Christoph,

Wonach soll Excel denn sortieren? Die Reihenfolge enthält keine nachvollziehbare Logik, zumindest erkenne ich keine.

Also entweder per Formel z.B. mit INDEX(VERGLEICH(... oder per VBA.

Hast du meinen Code mal probiert?




« Gruß Sepp »

 

Hallo Christoph,

Du kannst auch die Startnummern in der gewünschten Reihenfolge als benutzerdefinierte Liste anlegen (bei Excel 2003 noch unter Extras/Optionen zu finden) und beim Sortierdialog diese unter Optionen als Grundlage nehmen. Aber ob das nicht zu umständlich ist?

Grüße
EarlFred

 

Grüezi weratv

Und wer oder was zwingt dich, diese neuen Daten exakt dort einzufügen?

Verschiebe diese etwas nach hinten, dann kannst Du wie bereits angedeutet mit INDEX()/VERGLEICH() die Daten wunderbar zuordnen:

*	A	B	C	D	E	F	G	H	I	J
1	Startnummer	Name	Auto	Zeit	Strafpunkte	*	Zeit	Strafpunkte	Startnummer	*
2	5	Person 1	Auto 1	49.45	9	*	61.38	0	11	*
3	6	Person 2	Auto 2	78.98	8	*	62.81	0	12	*
4	7	Person 3	Auto 3	77.51	4	*	73.12	0	10	*
5	1	Person 4	Auto 4	55.13	8	*	67.51	2	9	*
6	2	Person 5	Auto 5	81.12	6	*	55.14	4	3	*
7	3	Person 6	Auto 6	55.14	4	*	77.51	4	7	*
8	8	Person 7	Auto 7	66.54	5	*	81.13	4	14	*
9	4	Person 8	Auto 8	66.21	8	*	99.12	4	17	*
10	9	Person 9	Auto 9	67.51	2	*	45.45	5	20	*
11	10	Person 10	Auto 10	73.12	0	*	66.45	5	13	*
12	11	Person 11	Auto 11	61.38	0	*	66.54	5	8	*
13	12	Person 12	Auto 12	62.81	0	*	84.16	5	15	*
14	17	Person 13	Auto 13	99.12	4	*	45.79	6	16	*
15	18	Person 14	Auto 14	44.51	8	*	81.12	6	2	*
16	19	Person 15	Auto 15	49.55	9	*	44.51	8	18	*
17	20	Person 16	Auto 16	45.45	5	*	55.13	8	1	*
18	13	Person 17	Auto 17	66.45	5	*	66.21	8	4	*
19	14	Person 18	Auto 18	81.13	4	*	78.98	8	6	*
20	15	Person 19	Auto 19	84.16	5	*	49.45	9	5	*
21	16	Person 20	Auto 20	45.79	6	*	49.55	9	19	*
22	*	*	*	*	*	*	*	*	*	*

Zelle	Formel
D2	=INDEX($G:$G;VERGLEICH($A2;$I:$I;0))
E2	=INDEX($H:$H;VERGLEICH($A2;$I:$I;0))

 

Ich habe mich nicht präzise ausgedrückt! Bitte bedenkt, dass nach dem Rennen mit mehreren Läufen jede Sekunde zählt damit die Daten wieder ins Rennbüro gelangen! Ich kann mir also etwa 15 Sekunden erlauben, sonst wird alles nervös!!

Es gibt also keine direkte Funktion (wie Sortieren) von Excel die mein Problem löst, oder?
Ich muss zwingend mit Formeln, Makros oder VBA arbeiten!

Sepp, Dein Code hat bestens funktioniert! Soweit also alles gut! Besten Dank für Deine Hilfe!

Freundliche Grüsse!

Christoph