Suche per VBA
19.06.2015 10:08:26
reinhardt
ich möchte einen gefundenen Suchwert in der Tabelle1 in der Trefferzeile in Spalte F
eintragen lassen ( oder das Wort: Gefunden).
Momentan habe ich mich soweit vorgearbeitet, das Excel den Suchwert in die Zelle G2
nacheinander einträgt.
Kann mir jemand helfen?
Gruß
Reinhardt
Sub ZeileFinden()
Dim Ergebnis As Range
Dim Z%
'letzte Zeile in TB 2
Sheets("Tabelle2").Select
Z = Cells(Rows.Count, 1).End(xlUp).Row - 1
Sheets("Tabelle1").Select
'Suchwert aus TB2 auslesen, eintragen in G2
For i = 5 To Z
Suchwert = Sheets("Tabelle2").Range("A" & i).Value
Sheets("Tabelle1").Range("G2").Value = Sheets("Tabelle2").Range("A" & i).Value
Set Ergebnis = Tabelle1.Columns(3).Find(what:=Tabelle1.Range("G2").Value, _
lookat:=xlWhole)
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden"
Else
Tabelle1.Range("F1").Value = Tabelle1.Cells(Ergebnis.Row, 3).Value
End If
Next i
End Sub
Anzeige