Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten sortieren nach 2 Kriterien

Daten sortieren nach 2 Kriterien
Marco
Ich habe eine 5x5-Tabelle mit Daten:
Anna Bert Conny Dora Emil
Udo Tina Ulf Martin Andi
Ixi Max Gina Willi Maja
...
und darunter zahlen:
4 2 3 1 5
Ich möchte nun, dass sich die obigen Daten basierend auf der Zahl die unten steht automatisch sortiert. Also die Tabelle oben ist schon nach Reihenfolge: Anna, Bert etc. sind die ersten Daten, dann kommen Udo usw.:
Es müsste dann so aussehen:
1 Dora - wegen der 1
2 Bert - wegen der 2
3 Conny - wegen der 3
4 Anna - wegen der 4
5 Emil - wegen der 5
6 Martin - wegen der 1
7 Tina - wegen der 2
8 Ulf - wegen der 3
9 Udo - wegen der 4
10 Andi - wegen der 5
11 Willi - wegen der 1
12 Max - wegen der 2
13 Gina - wegen der 3
14 ixi - wegen der 4
15 Maja - wegen der 5

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten sortieren nach 2 Kriterien
01.12.2011 23:19:07
Josef

Hallo Marco,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub nutsSort()
  Dim vntValues As Variant, vntNumbers As Variant
  Dim vntOut() As Variant
  Dim lngIndex As Long, lngR As Long, lngC As Long
  
  With Sheets("Tabelle1")
    vntValues = .Range("A1:E5") 'Bereich mit den Namen
    vntNumbers = .Range("A6:E6") 'Bereich mit den Nummern
    If UBound(vntValues, 2) = UBound(vntNumbers, 2) Then
      Redim vntOut(1 To UBound(vntValues, 1) * UBound(vntValues, 2), 1 To 1)
      For lngR = 1 To UBound(vntValues, 1)
        For lngC = 1 To UBound(vntValues, 2)
          vntOut(vntNumbers(1, lngC) + UBound(vntValues, 1) * (lngR - 1), 1) = vntValues(lngR, lngC)
        Next
      Next
      'Ausgabebereich
      .Range("A10").Resize(UBound(vntOut, 1), 1) = vntOut
    Else
      MsgBox "Ungleiche Spaltenanzahl!"
    End If
  End With
  
End Sub



« Gruß Sepp »

Anzeige
noch ne Formellösung
02.12.2011 00:29:46
CitizenX
Hi,
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFG
1AnnaBertConnyDoraEmil1Dora
2UdoTinaUlfMartinAndi2Bert
3IxiMaxGinaWilliMaja3Conny
4JochenKarinMartaKlausFritz4Anna
5MoritzFredCorinnaRitaSabine5Emil
6423156Martin
7     7Tina
8     8Ulf
9     9Udo
10     10Andi
11     11Willi
12     12Max
13     13Gina
14     14Ixi
15     15Maja
16     16Klaus
17     17Karin
18     18Marta
19     19Jochen
20     20Fritz
21     21Rita
22     22Fred
23     23Corinna
24     24Moritz
25     25Sabine

ZelleFormel
G1{=INDEX($A$1:$E$5;AUFRUNDEN(ZEILE()/5;0);MAX(((MTRANS($A$6:$E$6)=REST(ZEILE()-1;5)+1)*ZEILE($1:$5))))}
Achtung, Matrixformel enthalten!
Die geschweiften Klammern{} werden nicht eingegeben.
Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.
Diese Tabelle wurde mit Tab2Html (v2.4.0) erstellt. ©Gerd alias Bamberg

Grüße
Steffen
Anzeige
od so
02.12.2011 00:45:42
CitizenX
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFG
1AnnaBertConnyDoraEmil1Dora
2UdoTinaUlfMartinAndi2Bert
3IxiMaxGinaWilliMaja3Conny
4JochenKarinMartaKlausFritz4Anna
5MoritzFredCorinnaRitaSabine5Emil
6423156Martin
7     7Tina
8     8Ulf
9     9Udo
10     10Andi
11     11Willi
12     12Max
13     13Gina
14     14Ixi
15     15Maja
16     16Klaus
17     17Karin
18     18Marta
19     19Jochen
20     20Fritz
21     21Rita
22     22Fred
23     23Corinna
24     24Moritz
25     25Sabine

ZelleFormel
G1=INDEX($A$1:$E$5;AUFRUNDEN(ZEILE()/5;0);SUMMENPRODUKT(((($A$6:$E$6)=REST(ZEILE()-1;5)+1)*SPALTE($A$1:$E$1))))
Diese Tabelle wurde mit Tab2Html (v2.4.0) erstellt. ©Gerd alias Bamberg

Anzeige
Suuuuuuuuuuuper
02.12.2011 09:51:38
Marco
Vielen vielen Dank.
Schönes Wochenende Euch Excelexperten.
Marco

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige