Alternative für sverweis - Auslesen von Daten

Hallo zusammen
Ich habe folgende Ausgangslage:
Ein Tabellenblatt mit ca. 300000 Zeilen (jedes Produkt eine Zeile) und ca. 300 Spalten (verschiedene Ausprägungen des Produktes; z.B. Grösse, Gewicht, etc.). Dieses Tabellenblatt wird automatisch generiert und kann nicht abgeändert werden.
Will man ein Produkt genauer betrachten, muss man sehr viel nach rechts scrollen
Ziel
In einem zweiten Tabellenblatt soll ein bestimmtes Produkt ausgewählt werden können (nicht mit Dropdown sondern durch manuelle Eingabe der Produktnummer) und anschliessend werden untereinander die Werte der wichtigsten Ausprägungen aufgelistet.
Natürlich kann das mit sverweis gelöst werden, jedoch dauert die Berechnung aufgrund der Grösse der Datei bzw. der grossen Datenmenge sehr lange. Gibt es alternative Möglichkeiten, welche weniger rechnerintensiv sind als sverweis? Und nein, ich kann die Grösse der Ausgangstabelle nicht reduzieren ;-)
Danke im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim SN As String Dim c Dim myrow Dim i If Target.Address(0, 0) = "B1" Then 'die Eingabezelle SN = Target.Value Set c = Sheets("Tabelle1").Columns(1).Find(SN) 'gesucht wird in Tabelle1 Spalte A If Not c Is Nothing Then myrow = c.Row With ActiveSheet For i = 2 To 300 Cells(i, 2).Value = Sheets("Tabelle1").Cells(myrow, i).Value Next End With End If End If End Sub

Hi
Die Variante mit Bereich.Verweis = 1 mit sortierten Daten reduziert den Rechenaufwand, wenn die Suchmatrix aus vielen Zeilen besteht.
Die von Hansueli vorgeschlagene Index-Variante reduziert den Rechenaufwand, wenn zu eine Zeilennummer viele Spalten ausgelesen werden müssen.
Da die genannte Datenmenge aus vielen Zeilen und vielen Spalten besteht, sollte man beide Möglichkeiten kombinieren. Das mit dem Bereich-Verweis funktioniert auch mit der Vergleichs-Funktion.
Das Formelwek sieht dann in etwa so aus:
- in Zelle a1 steht der Suchbegriff
- in Zelle b1 wird die Zeilennummer der Fundstelle ermittelt
- ab Spalten c werden dann die Daten ausgegeben, diese Formel kann nach rechts gezogen werden.
B1: =vergleich(a1;Tabelle1!$A:$A;1)
C1: =index(Tabelle1!B:B;$B1)
Wenn noch geprüft werden muss, ob der Suchbegriff überhaupt vorhanden ist, sieht das Formelwek so aus:
B1: =wenn(sverweis(a1;Tabelle1!$A:$A;1;wahr)=a1;vergleich(a1;Tabelle1!$A:$A;1);"")
C1: =wenn(istzahl($b1);index(Tabelle1!B:B;$B1);"")
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Alternative für sverweis - Auslesen von Daten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alternative für sverweis - Auslesen von Daten

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

302 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