Herbers Excel-Forum - das Archiv
vergleichen und übertragen/Makro
- vergleichen und übertragen/Makro von Stamereilers vom 15.12.2006 17:36:58
- AW: vergleichen und übertragen/Makro - von ChrisL am 15.12.2006 18:44:42
- AW: vergleichen und übertragen/Makro - von Stamereilers am 15.12.2006 18:57:09
- AW: vergleichen und übertragen/Makro - von Stamereilers am 15.12.2006 18:57:09
 |
Betrifft: vergleichen und übertragen/Makro
von: Stamereilers
Hallo Excel Experten!
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 SubKann mir jemand das Makro anpassen?
Danke!
Gruß
Rolf
 |
Betrifft: AW: vergleichen und übertragen/Makro
von: ChrisL
Geschrieben am: 15.12.2006 18:44:42
Hallo Rolf
Ich glaube da fehlt nur noch...
If Target.Column <> 4 Then Exit Sub
Gruss
Chris
|
Betrifft: AW: vergleichen und übertragen/Makro
von: Stamereilers
Geschrieben am: 15.12.2006 18:57:09
Hallo Chris!
Genau das wars!!
Danke!
Gruß
Rolf
| |