Hallo Zusammen,
ich suche nach einer Möglichkeit einen vom Benutzer festgelegten Wert in einer Liste zu finden und die direkt danebenliegenden Zellen in eine weitere Liste zu kopieren, also ähnlich wie ein SVERWEIS nur mit mehreren Ergebnissen für den einen Wert.
Konkret sieht mein Problem folgendermaßen aus:
In dem Sheet "Tabelle1" gibt der Benutzer in der Zelle "E5" einen Wert ein. Dieser Wert kommt in einer Liste in dem Sheet "GPWZ" und der Range "E2:E5238" mehrmals vor. Für alle gefundenen Werte sollen die links nebenstehenden Zellen (A und B) in einer Ergebnistabelle angezeigt werden. Ich habe es folgendermaßen versucht:
Sub ProduktCodeSuche()
Dim wz1 As Integer
wz1 = Sheets("Tabelle1").Range("E5").Value
For i = 2 To 5238
If wz1 = Sheets("GPWZ").Range("D" & i).Value Then
Sheets("Tabelle1").Range("A" & 11 + i).Value = Sheets("GPWZ").Range("A" & i).Value
Sheets("Tabelle1").Range("B" & 11 + i).Value = Sheets("GPWZ").Range("B" & i).Value
End If
Next
End Sub
Mit diesem Code fangen die Ergebnisse allerdings nicht ganz oben in der Liste an, sondern da wo i gerade in der Schleife ist.
Wie schaffe ich es, dass die Ergebnisse in meiner Ergebnisliste ganz oben (also bei "A12" und "B12") anfangen?
Viele Grüße
Basti
|