vergleichen und übertragen/Makro
15.12.2006 17:36:58
Stamereilers
Ich habe ein Makro gefunden. Scheitere aber am anpassen des Makros.
Ich würde gerne in Spalte D Tabellenblatt Kalender Werte eingeben.
Die gefundenen Werte aus Tabellenblatt Training sollen in Spalte E Tebellenblatt Kalender übertragen werden.
'ClassModule: Kalender
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 1 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Training").Columns("A:B"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Training").Columns("A:B"), 2, 0)
End If
End With
End Sub
Kann mir jemand das Makro anpassen?
Danke!
Gruß
Rolf