Mich beschäftigt seit geraumer Zeit folgendes Problem:
Aus Tabellenblatt1 werden durch ein Macro doppelte Daten aus Spalte A in ein Tabellenblatt2 Spalte A gefiltert. Das sieht wie folgt aus:
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("Hauptliste").Columns("A:C"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, Worksheets("Hauptliste").Columns("A:C"), 2, 0)
Target.Offset(0, 2) = .VLookup(Target.Value, Worksheets("Hauptliste").Columns("A:C"), 3, 0)
End If
End With
End Sub
Nun sollen aber nur die Spalten A und C übernommen werden. Wie ist das lösbar? So, aber das ist leider noch nicht alles: wenn nun in Spalte B (Tabellenblatt2) die Werte von Spalte C (Tabellenblatt1) stehen, sollen sie (wär gut über Verweis) in Spalte F(Tabellenblatt1) gesucht werden und die danebenstehenden Spalten G-L in Tabellenblatt2 in Spalte C-H übernommen werden.
Wer von Euch könnte mir dabei helfen??
Gruss Steve und Dank im Voraus.