Hallo
wenn ich dich richtig verstanden habe geht es hier um 3 Tabellenblätter
in meinem Test gebe ich in Tabelle1 in Zelle A1 einen Wert ein
dieser Wert wird in Tabelle2 in Spalte A gesucht
wenn der Wert gefunden wird, wird die Zeile kopiert und in Tabelle3 untereinander eingefügt
dieser Code gehört dabei in Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim lngZiel As Long
Dim varSuche As Variant
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Sheets("Tabelle3")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
varSuche = Range("A1").Value
With Sheets("Tabelle2")
Set c = .Columns(1).Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Rows(c.Row).Copy Sheets("Tabelle3").Cells(lngZiel, 1)
MsgBox "fertsch"
Else
MsgBox "nix gefunden"
End If
End With
End If
End Sub
MfG Tom
|