Tabellenabfrage ähnlich Sverweis m. VBA
02.03.2007 10:49:10
Markus
ich versuche mich gerade darin, mein vor kurzem erlangtes Wissen über Makros umzusetzen, mußte aber feststellen, daß mir noch viel fehlt.
Mein Problem: Ich will mit Makro, ähnlich Funktion "Sverweis" aus einer Tabelle ("Konkurrenz") Werte mit best. Suchkriterien abfragen. In diesem Fall sind es drei. Diese will ich in einem zweitem Tabellenblatt auswerten ("Auswertung1") Suchkriterien stehen dort fortlaufend in Spalte A + B, und ein festes Suchkriterium ist in Zelle "C1". Ausgegeben werden soll mir der zugehörige Werte aus Spalte 19("Konkurrenz"). Mit meinem Makro erhalte ich aber nur einen Wert in der obersten Zeile und dann endet alles (ohne Fehlermeldung).Bitte um Hilfe!!!!
Sub Frage1()
Dim i As Long
Dim x, y, a, b, c, z
For i = 2 To 65000
x = Worksheets("Auswertung1").Cells(i, 1).Value
y = Worksheets("Auswertung1").Cells(i, 2).Value
z = Worksheets("Auswertung1").Range("C1").Value
a = Worksheets("Konkurrenz").Cells(i, 1).Value
b = Worksheets("Konkurrenz").Cells(i, 4).Value
c = Worksheets("Konkurrenz").Cells(i, 5).Value
If a = x And b = y And c = z Then
Worksheets("Auswertung1").Cells(i, 3).Value = Worksheets("Konkurrenz").Cells(i, 19)
Exit For
End If
Next
End Sub
Viele Grüße und Danke
Markus