Herbers Excel-Forum - das Archiv

vergleichen und übertragen/Makro

Bild

Betrifft: vergleichen und übertragen/Makro
von: Stamereilers

Geschrieben am: 15.12.2006 17:36:58
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 Sub

Kann mir jemand das Makro anpassen?
Danke!
Gruß
Rolf
Bild

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
Bild

Betrifft: AW: vergleichen und übertragen/Makro
von: Stamereilers
Geschrieben am: 15.12.2006 18:57:09
Hallo Chris!
Genau das wars!!
Danke!
Gruß
Rolf
 Bild
Excel-Beispiele zum Thema "vergleichen und übertragen/Makro"
Zellen vergleichen und markieren Tabellen vergleichen
Spalten A und B vergleichen und Doppel in C listen Werte vergleichen
Bereiche auf Übereinstimmung vergleichen Daten in jeweils einer Spalte zweier Tabellen vergleichen
Werte vergleichen und Ergebnis in Tabelle eintragen Tabellen vergleichen und Zeilen ersetzen
Tabellen vergleichen und bei Nichtübereinstimmung markieren Textdateien vergleichen und Unterschiede dokumentieren