vergleich 2 zellen und ausgabe 3 spalte
25.10.2016 21:30:34
sarah
ich möchte aus einer Tabelle1 wie über den sverweis in Excel mit vba 2 Zellen in einem anderen Tabellenblatt(Tabelle2) aus einer Matrix suchen und dann soll es mir wenn es die richtige Zeile gefunden hat, den Wert der Spalte 3 ausgeben.
Wie kann ich das lösen? Über If.. Then..? (vermutlich ist Range und dann eine Liste B1:B200 nicht möglich?) Beide Codes funktionieren bei mir leider nicht.. Alle Zellen sindText/Zahlenkombinationen.
Ansatz 1:
If Sheets("Tabelle1").Range("B4").Value = Sheets("Tabelle2").Range("A1:A200").Value &
Sheets("Tabelle1").Range("B5").Value = Sheets("Tabelle2").Range("B1:B200").Value
Then Sheets("Tabelle1").Range("A21").Value = Sheets("Tabelle2").Range("C1:C200").Value
End If
Ansatz 2:
Dim rng As Range
Dim loDeinWert As String
loDeinWert = Sheets("Tabelle1").Range("B4").Value & Sheets("Tabelle1").Range("B5").Value 'gesuchter Wert
Set rng = Worksheets("Tabelle2").Range("A1:A200;B1:B200").Find(loDeinWert)
If rng Is Nothing Then
MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
rng.Worksheets("Tabelle2").Range("C1:C200").Copy
Worksheets("Tabelle1").Range("A21").PasteSpecial Paste:=xlPasteAll
End If
Danke schon mal!!
Sarah