Suchen aus Referenzliste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
Ich möchte aus einer Liste bestimmte Einträge, die in einer Referenzliste stehen, auswählen
ist das schon ein Teil der Problemstellung? Was stellst du dir den vor, einen Dropdown? Das geht relativ einfach über die Datengültigkeit, bei der du "Liste" zulässt und die Referenztabelle als Quelle angibst.
den Wert der darüberliegenden Spalte ausgeben.
es gibt keine darüber liegende Spalte. Wohl aber eine darüber liegende Zeile. Bitte die Begrifflichkeiten nicht durcheinander werfen, sonst kann dir niemand helfen.
Zum Verständniss: Wenn ich "Parameter 'Querbänke', Merkmal 'mehrere' und Parameter 'Sohlverbau', Merkmal 'Massivsohle/Sed.'" answähle (das steht in Liste!A20), dann soll "Abschnitt: 2474_99" gefunden werden (Liste!A19)?
Leider stehen auch manchmal mehrere Einträge übereinander, die zum gleichen Abschnitt gehören.
in deinem Muster meinst du damit Liste!A7:A8, richtig? Und die sollen beide "Abschnitt: 2474_36" (Liste!A6) ergeben, richtig?
Ich glaube ich muss dich einmal vor den Kopf stoßen: Der Tabellenaufbau ist unterirdisch. Vorschlag:
die "Abschnitt: 1234_56" Sachen direkt in die Referenztabelle schreiben, in Spalte B. Dann über SVERWEIS ziehen.
Oder:
Die Verdoppelung vermeiden. Sprich: zwischen Zeile 7 und 8 eine einfügen, und dort "Abschnitt: 2474_36" eintragen. Dann klappt es mit INDEX.
Aber lass mich raten: Der Tabellenaufbau kann nicht verändert werden? Dann gibt es in deinem Muster ein paar krüde Möglichkeiten, einen Wert einem Abschnitt zuzuordnen:
- die fragliche Zelle ist fett beschrieben, die anderen Zellen nicht.
- es liegt ein Rahmen um die Suchwerte, aber nicht um die Abschnitte sebst
- die zu findenden Werte fangen immer mit "Abschnitt:" an.
Bitte gib mal Rückmeldung, welcher der Zustände definitiv und immer zutrifft. Dann kann man eine VBA-Lösung masschneidern, die dieses und nur dieses Problem löst.
Grüße,
Klaus M.vdT:

Hallo Uta,
du hast es leider total zerschossen ...
du hast erstens:
den Bezug (C1) vor dem runter kopieren nicht angepasst, sondern nur fixiert. Ich kann leider wieder nur raten: was WILLST du denn suchen? Jeweils die Einträge A2:A22? So wie du's gemacht hast, sucht die Formal ja immer wieder nach dem Eintrag in C1.
dann hast du zweitens:
hier A1:INDEX() die Indizierung nicht fixiert, so dass die Formel beim runterziehen auf A1:Index(), A2:INDEX(), A3:INDEX ... hochtickert. Hier versuchen wir aber eine Matrix von A1 bis zum Suchwert zu erstellen. Daher muss immer bei A1 angefangen werden, also A$1 !
und dann hast du drittens:
die Formel mit "ENTER" abgeschlossen. Es ist aber eine Matrixformel, die mit STRG+SHIFT+ENTER abgeschlossen werden muss um die {Klammern} um die Formel zu erzeugen und die Matrixberechnung zu aktivieren. Sorry, darauf hatte ich nicht im aktuellen, sondern in einem anderen Beitrag weiter oben hingewiesen.
Also: C1 einfach löschen. Du willst (geraten!) ab A2 bis A22 den Inhalt von A auswerten. Das in C1 überhaupt mal ein dropdown war vergessen wir, das ist ein Holzweg.
Die Formel dazu ist dann:
{=Verweis(2;1/(Links(A$1:index(A:A;vergleich(A2;A:A;));9)="Abschnitt");A$1:index(A:A;vergleich(A2;A:A;)))}
welche du ohne die {Schweif-Klammern} in C2 eingibst und mit STRG+SHIFT+ENTER abschließt. Dann kopierst du C2 bis C22 runter. Dann überprüfst du nochmal, ob auch in den anderen Zellen die {}ern um die Formel stehen. Wenn ja, hast du es richtig gemacht!
Jetzt hast du neben jedem Parameter den dazugehörigen Abschnitt stehen. Was eine dazugehörige Verortung ist weiss ich nicht, klingt nach Beamtendeutsch?
ein Abschnitt - eine Ausprägung
müsste korrekt gefunden werden
ein Abschnitt - mehrere Ausprägungen
jede Ausprägung unter dem entsprechenden Abschnitt bekommt ebenden gleichen Abschnitt zugeteilt.
mehrere Abschnitte - eine Ausprägung
Die Formel sucht von unten, dass heisst es müsste (!!!!) für jeden Parameter jeweils der Abschnitt dazu passend gefunden werden, auch wenn Parameter unter verschiedenen Abschnitten auftauchen. Das teste aber bitte nochmal aus.
Wenn in A kein Parameter, sondern ein Abschnitt steht, findet sich in B der Abschnitt wieder. Das KÖNNTE man jetzt noch mit einem WENN vor der Formel abfangen, wenn es Not tut.
Grüße,
Klaus M.vdT.

Option Explicit Sub MakeNewFilteredList() Dim lRow As Long With Sheets("Tabelle2") 'letzte Zeile lRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Autofilter, falls gesetzt, entfernen If .AutoFilterMode Then .Cells.AutoFilter 'Formel für Nummer_neu .Range("C2:C" & lRow).FormulaR1C1 = "=IF(LEFT(RC[-2],9)=""Abschnitt"",RC[-2],R[-1]C)" 'Nummern in A überschreiben .Range("A2:A" & lRow).Value = .Range("C2:C" & lRow).Value 'Hilfsspalte löschen .Range("C2").EntireColumn.ClearContents 'Formeln für Filterung .Range("D1").Value = "FILTER" .Range("D2:D" & lRow).FormulaR1C1 = "=IF(COUNTIF(Referenztabelle!C[-3],RC[-2])>=1,""xxx"","" _ "")" 'Autofilter über D aktivieren .Range(.Cells(1, 4), .Cells(lRow, 4)).AutoFilter 'und Filtern .Range("$D$1").AutoFilter Field:=1, Criteria1:="xxx" 'gefilterte Liste kopieren lRow = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("A2:B" & lRow).Copy 'neues Blatt erstellen Sheets.Add 'Liste einfügen ActiveSheet.Range("A1").PasteSpecial xlPasteValues 'zurück aufs Hauptblatt .Activate 'Autofilter wieder rauswerfen If .AutoFilterMode Then .Cells.AutoFilter 'Hilfsspalte D löschen .Range("D2").EntireColumn.ClearContents End With End Sub

Beliebteste Forumthreads (12 Monate)

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread