Sortierung m. Spalten ABHÄNGIG voneinander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Summe Zeit Lauf Zeit Name 1 2 3 1 Petra 1 Vera 1 1,1 Vera2 1,1 1,4 Stafan 1,4 1,7 Jürgen 1,7 1,9 Stafan 1,9 2,1 Klaus 2,1 Walter2 2,1 2,3 Walter 2,3 3,2 Frank 3,2 3,3 Frank2 3,3 4 Hermann 4

Hallo Jen,
dann würde ich diese Vorgehensweise vorschlagen:
1. Alle Läufe untereinander kopieren und die Laufnummer in eine zusätzliche Spalte schreiben, wie fcs das ja schon erklärt hat.
2. Die Zeiten-Spalte kopieren, um dann alle doppelten Zeitwerte rauszulöschen. Ich habe das im Beispiel mal mit einer Formel gemacht, die du in den Zellen B13 bis B20 findest. Alle Zeilen, in denen in Spalte B eine 1 steht, sind doppelt und können raus.
3. Spaltenüberschriften für die Läufe anlegen, im Beispiel C12 bis D12. Beachte das Zellenformat und den Zelleninhalt!
4. Matrixfunktion sinngemäß wie in Zelle C13 eingeben.
Jetzt hast du alle Werte in einer Zeile, sofern die Zeit dieselbe ist und weißt auch aus welchem Lauf sie stammt.
https://www.herber.de/bbs/user/92766.xlsx
Gruß
Sheldon

hallo Jen,
da du von bis zu 20 Läufen sprichst, hier mein Vorschlag.
Voraussetzung:
- in "Tabelle1" stehen nur die Daten. keine weiteren Einträge darunter oder rechts daneben.
- in den ersten beiden Zeilen stehen die Überschriften, Daten beginnen ab Zeile 3
- pro Lauf werden immer 2 Spalten genutzt (Zeit, Name)
- es gibt keine Leerspalten zwischen den Läufen (Zeit, Name, Zeit, Name, ...)
Dann teste mal das folgende Makro.
Die Ergebnisse werden im Tabellenblatt "Tabelle2" eingetragen, ggf. vorher anlegen oder die Namen im Code anpassen.
Kommst du damit klar?
Gruß
Christian


Option Explicit
Sub TestIt()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim i As Long, j As Long, k As Long
Dim vntSrc(), vntTmp(2)
Set wksSrc = ThisWorkbook.Sheets("Tabelle1")        ' Tabelle mit Quelldaten
Set wksDst = ThisWorkbook.Sheets("Tabelle2")        ' Ziel-Tabelle
' Daten einlesen
With wksSrc
For j = 1 To .UsedRange.Columns.Count Step 2    ' in 2er-Schritten ab Spalte A
For i = 3 To .UsedRange.Rows.Count          ' ab Zeile 3
If .Cells(i, j)  "" Then
ReDim Preserve vntSrc(2, k)
vntSrc(0, k) = j                    ' Spalten-Nr
vntSrc(1, k) = .Cells(i, j)         ' Zeit
vntSrc(2, k) = .Cells(i, j + 1)     ' Name
k = k + 1
End If
Next
Next
End With
' sortieren (BubbleSort ist langsam, sollte hier aber ausreichen)
For i = 0 To UBound(vntSrc, 2)
For j = i To UBound(vntSrc, 2)
If vntSrc(1, j)  UBound(vntSrc, 2) Then Exit Do
Loop
k = k + 1
i = j - 1
Next
End With
' Speicher freigeben
Erase vntSrc
Set wksSrc = Nothing
Set wksDst = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Sortierung m. Spalten ABHÄNGIG voneinander

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread