01.11.2016, 12:50
Hallo zusammen,
in einer Liste habe ich eine unterschiedliche Anzahl von Namen...als Beispiel sagen wir mal 10 Namen die in der Spalte "A" aufgelistet sind.
Ich möchte nun aus diesen Namen alle Namenskombinationen herausfinden und dazu habe ich einen super VBA-Code von ransi gefunden der das perfekt macht.
Was ich nun gerne noch als Highlight hätte ist die Möglichkeit aus einer gefilterten Liste... es bleiben nur noch z.B. 6 Namen übrig... der Rest wird mittels Autofilter ausgeblendet...alle möglichen Kombinationen aufgelistet zu bekommen.
Leider gelingt es mir nicht zu einem richtigen Ergebnis zu kommen.
Dies hier bringt mich auch nicht weiter. Autofilter ist anscheinend ein größeres Problem.
Ach ja, in Spalte "B" wird jeweils noch eine Platzziffer dem jeweiligen Namen zugeordnet. In Spalte "D" soll dann die Addition der Platzziffern aus der jeweiligen Kombination eingetragen werden.
Tabelle
Vielleicht habt Ihr noch einen Lösungsweg der zum Ziel führt?
Dafür vielen Dank schonmal! Das wäre super!
in einer Liste habe ich eine unterschiedliche Anzahl von Namen...als Beispiel sagen wir mal 10 Namen die in der Spalte "A" aufgelistet sind.
Ich möchte nun aus diesen Namen alle Namenskombinationen herausfinden und dazu habe ich einen super VBA-Code von ransi gefunden der das perfekt macht.
Code:
Option Explicit
Public Sub test()
Dim myDic
Dim Arr
Dim L As Long
Dim S As Long
Dim K
Dim SPL
Set myDic = CreateObject("Scripting.Dictionary")
Arr = Range("A1:A10")
For L = 1 To UBound(Arr) - 1
For S = L + 1 To UBound(Arr)
myDic(Arr(L, 1) & " " & Arr(S, 1)) = 0
Next
Next
Range("B1").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.keys)
K = myDic.keys
myDic.removeall
For L = LBound(K) To UBound(K)
For S = LBound(K) To UBound(K)
SPL = Split(K(L), " ")
If Not K(S) Like "*" & SPL(0) & "*" Then
If Not K(S) Like "*" & SPL(1) & "*" Then
If Not myDic.exists(K(S) & "--" & K(L)) Then
If Not myDic.exists(K(L) & "--" & K(S)) Then
myDic(K(L) & "--" & K(S)) = 0
End If
End If
End If
End If
Next
Next
Range("C1").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.keys)
End SubWas ich nun gerne noch als Highlight hätte ist die Möglichkeit aus einer gefilterten Liste... es bleiben nur noch z.B. 6 Namen übrig... der Rest wird mittels Autofilter ausgeblendet...alle möglichen Kombinationen aufgelistet zu bekommen.
Leider gelingt es mir nicht zu einem richtigen Ergebnis zu kommen.
Dies hier bringt mich auch nicht weiter. Autofilter ist anscheinend ein größeres Problem.
Code:
arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)Ach ja, in Spalte "B" wird jeweils noch eine Platzziffer dem jeweiligen Namen zugeordnet. In Spalte "D" soll dann die Addition der Platzziffern aus der jeweiligen Kombination eingetragen werden.
Tabelle
| A | B | |
| 1 | Name | Platzziffer |
| 2 | Name1 | 1 |
| 3 | Name2 | 2 |
| 4 | Name3 | 3 |
| 5 | Name4 | 4 |
| 6 | Name5 | 5 |
| 7 | Name6 | 6 |
| 8 | Name7 | 7 |
| 9 | Name8 | 8 |
| 10 | Name9 | 9 |
| 11 | Name10 | 10 |
| Excel-Inn.de |
| Hajo-Excel.de |
| XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
| Add-In-Version 21.08 einschl. 64 Bit |
Vielleicht habt Ihr noch einen Lösungsweg der zum Ziel führt?
Dafür vielen Dank schonmal! Das wäre super!