Lsite durchsuchen und Werte sortiert ausgeben

Hallo werte Lesenden
ich habe ein spezielles Problem mit Excel bzw. VBA.
Für eine Auswertung ist es notwendig, dass ich eine Spalte nach einem bestimmten Wert durchsuche um dann anschließend den Wert aus der benachbarten Zelle in eine Liste eintragen zu lassen. Klar könnte ich das per Filter und Hand anstellen, soll aber nicht der Anspruch sein. Es sollte möglichst für den Anwender komfortabel gelöst werden.
In der Spalte A (A2 bis A3000) stehen ganz viele Zahlen.
In der Zelle D1 steht der Suchwert, der in Spalte A gesucht werden soll.
Wird der Wert in Spalte A gefunden, soll der entsprechend benachbarte Wert aus Spalte B ausgegeben werden.
Die Ausgabe soll untereinander in Spalte D (ab Zelle D3) erfolgen.
Ich suche schon eine ganze Weile nach der Lösung. Es wäre schön, wenn ihr einen Lösungsansatz für mich hättet, da meine VBA Kenntnisse beschränkt sind.
Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim tmp Dim i As Long tmp = Range("A2:A3000").Value tmp = Application.Transpose(Application.index(tmp, 0)) Quicksort tmp, LBound(tmp), UBound(tmp) Debug.Print Join(tmp, "; ") End Sub 'Quicksort algorithm was moved here due to project wide usage 'I wont explain this code... Public Sub Quicksort(ByRef Source As Variant, ByVal low As Long, ByVal high As Long) Dim i As Long: i = low Dim j As Long: j = high Dim tmp As Variant Dim ref As Variant: ref = Source((low + high) / 2) Do While (Source(i) ref): j = j - 1: Wend If (i j) If (low

Hallo Peter(silie),
vielen Dank für die schnelle Antwort.
Ich habe den Code noch nicht wirklich verstanden.
Zur Deiner Frage hier etwas ausführlich geantwortet.
Ich such zuerst einen code, der Spalte "A" nach dem Eintrag in Zelle "D1" durchsucht.
Zum Beispiel findet der code den ersten gleichen Wert in "A15".
Dann soll der Nachbarwert von der gefundenen Zelle, also "B15" in das Feld "D3" eingetragen werden.
Der code such nun weiter und findet meinetwegen den nächsten gleichen wert in "A33".
Auch hier soll der Nachbarwert von "A33", also "B33" in die Zelle "D4" eingetragen werden.
Wenn ich am Ende der Spalte "A" bin, also keine weiteren Werten enthalten sind, dann habe ich in der Spalte "D", im Feld "D1" den gesuchten Wert, und in den Feldern "D3" bis "D..." die entsprechenden Were aus der Spalte "B" untereinander aufgelistet.
Im Anschluss werden die Werte aus den Zellen "E1", "F1","G1","H1" jeweils mit der Spalte "A" verglichen und die entsprechenden Wert aus der Spalte "B" unter die jeweiligen Suchwerte gelistet.
Das sortieren und das entfernen der Duplikate (spaltenweise) habe ich schon.
Wenn Du mir dabei helfen könntest wäre ich sehr glücklich.
Vielen Dank schon einmal

Public Sub suchen() Dim varSuchbegriff As Variant, firstAddress As String Dim raTreffer As Range, i As Long i = 3 'Blattname anpassen With Worksheets("Tabelle1").Columns(1) varSuchbegriff = .Range("D1").Value Set raTreffer = .Find(what:=varSuchbegriff, LookIn:=xlValues, LookAt:=xlWhole) If Not raTreffer Is Nothing Then firstAddress = raTreffer.Address Do .Cells(i, 4) = raTreffer.Offset(, 1) i = i + 1 Set raTreffer = .FindNext(raTreffer) Loop While Not raTreffer Is Nothing And raTreffer.Address firstAddress End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Lsite durchsuchen und Werte sortiert ausgeben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Lsite durchsuchen und Werte sortiert ausgeben

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

318 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