suchen u. übertragen, Makro ändern
16.12.2006 12:03:36
Stamereilers
Ich möchte in Tabelle2 den Wert in Spalte 4 suchen und den Wert aus Spalte 5 nach Tabelle1 übertragen. Könnt ihr mir das Makro anpassen?
(Leider komme ich nicht dahinter wie es funkt)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 4 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("A:B"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("A:B"), 2, 0)
End If
End With
End Sub
Vielen Dank für eure Hilfe!
Gruß
Rolf
Anzeige