Werte aus Quelldateien in Matrix zuordnen

Hallo zusammen,
ich benötige Eure Hilfe da meine Matrixformel etwas "schwerfällig" ist :)
Was habe ich:
Eine Quelltabelle mit Nummern in A:A und Werkstoff in D:D und Beschreibung in F:F
Nummern sind als Text formatiert
Werkstoff ist ebenfalls Text und Beschreibung ist alphanummerisch.
Vertikal aufgebaut

Nummer|Werkstoff  |Beschreibung        |usw.
123456|AV_OMF_07  |Stark_Druckbeständig|
123456|LG_OMD_07  |I=5,15 HF86         |
123456|SDF_OMG_07 |D51-DSS-FF          |
123558|OEM_OMF_225|27.00 KG            |
usw.  |

Meine Matrix soll so aufgebaut werden:


Nummer|AV_OMF_07           |LG_OMD_07  |SDF_OMG_07|OEM_OMF_225
123456|Stark_Druckbeständig|I=5,15 HF86|D51-DSS-FF|
123558|                    |           |          |27.00 KG

Meine Formel der Matrix beginnend in A2 nach rechts zu ziehen:

{=Wennfehler(INDEX(Sheet1!$F:$F;VERGLEICH(LINKS($A2;8)*1&D1;LINKS(Sheet1!$A:$A;8)*1&Sheet1!$D:$D;0); 1);"")}

Das klappt auch ganz gut aber die Matrix ist ca. 1000 Spalten (Werkstoffe) breit und bei ca. 30000 Nummern tief ausgelegt, in denen ich die Werte aus der Quelle zuordnen möchte.
Mit der Formel komme ich da nicht weit.
Könnt Ihr da was mit machen in richting ScriptingDict oder VBA?
Vielen Dank und Gruß
Nilo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
1. Hilfsspalte einfügen , in welcher du Nummer und Werkstoff zu einem Begriff zusammenfasst.
2. sortiere die Tabelle nach dieser Hilfsspalte
dann kannst du die Begriffe einfach über den kombinierten Wert mit dem SVerweis suchen und dabei den SVerweis mit 4. Parameter = WAHR verwenden.
dieser ist wesentlich schneller als sein "falscher" Bruder.
da du jetzt keinen Fehler mehr bekommst, wenn die Kombination nicht vorhanden ist, musst du den SVerweis so aufbauen (ich gehe mal davon aus, dass die Hilfsspalte in A steht, und dann die Auswertespalte um 1 versetzt in G:


=Wenn(SVerweis(Links($A2;8)&D$1;Sheet1!$A:$A;1;wahr)=Links($A2;8)&D$1;SVerweis(Links($A2;8)&D$1; Sheet1!$A:$G;7;wahr);"")

alles andere ist bei der genannten Datenmenge nicht praktikabel.
Den geschwindigkeitsunterschied in der Berechnung zwischen den beiden SVerweis-Varianten kannst du so abschätzen
die Datenmenge (anzahl Zeilen) ist sei in etwa x = 2^n
dann ist die Suchzeit für den SVerweis mit 4. Parameter = falsch bzw den Vergleich mit 3. Parameter = 0 proportional x/2
die Suchzeit für den SVerweis mit 4. Parameter = Wahr ist proportional n
Gruß Daniel

Sub einzeiler() Dim Arr Dim i As Integer For i = 7 To 1000 Sheets("Tabelle1").Cells(2, i).FormulaR1C1 = "=IFERROR(IF(VLOOKUP(LEFT(RC1,8)&R1C,Sheet1!C1,1, _ TRUE)=LEFT(RC1,8)&R1C,VLOOKUP(LEFT(RC1,8)&R1C, Sheet1!C1:C7,7,TRUE),""""),"""")" Next i With Range("G2:ALR" & Cells(Rows.Count, "A").End(xlUp).Row) Arr = .Value2 .Value2 = Arr End With End Sub

Sub formeln() Dim i As Integer Dim leZeile As Long Dim WkSh_Z As Worksheet Set WkSh_Z = ActiveSheet For i = 7 To 30 For leZeile = 2 To WkSh_Z.Cells(Rows.Count, 7).End(xlUp).Row Sheets("Tabelle1").Cells(2, i).FormulaR1C1 = "=IFERROR(IF(VLOOKUP(LEFT(RC1,8)&R1C, _ Sheet1!C1,1,TRUE)=LEFT(RC1,8)&R1C,VLOOKUP(LEFT(RC1,8)&R1C, Sheet1!C1:C7,7,TRUE),""""),"""")" Next leZeile Next i End Sub

Beliebteste Forumthreads (12 Monate)

Werte aus Quelldateien in Matrix zuordnen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Quelldateien in Matrix zuordnen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread