Sverweis nach eine X

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("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


Tabelle1

 
 
A
B
C
D
E
F
G
H
I
J
K
1
Datum
Tag
X
Nr.
Programm
Datum 
 
X
Nr.
Programm
Datum
2
01.01.
Mo
 
TD
 
 
 
 
TD
 
 
3
Neujahr
 
X
RD
Ruhiger Dauerlauf
25.10.2008
 
X
RD
Ruhiger Dauerlauf
25.10.2008
4
02.01.
Di
 
MD
 
 
 
 
MD
 
 
5
 
 
X
FD
Flotter Dauerlauf
25.10.2008
 
 
FD
 
 
6
03.01.
Mi
 
LD
 
 
 
X
LD
Langer Dauerlauf
25.10.2008
7
 
 
 
FS
 
 
 
 
FS
 
 
8
04.01.
Do
X
IT
Intensiver Tempolauf
25.10.2008
 
 
IT
 
 
9
 
 
 
ET
 
 
 
 
ET
 
 
10
05.01.
Fr
 
T62
 
 
 
X
T62
6x2000
25.10.2008
11
 
 
 
T62
 
 
 
 
T62
 
 
 

Excel Tabellen im Web darstellen >>  Excel Jeanie HTML 4 

Mochte gerne durch setzen von eine "X" in Spalte C und H Sverweis auslösen

Habe dass probiert mit folgende Code aber ohen Erfolg



Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
'Code in das entsprechende Tabellenblatt
If Not Intersect(Target, Range("C3:C50;H3:H50")) Is Nothing And Target.Count = 1 Then
If LCase(Target) = "meine eingabe" Then
If Target.Column  4 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
If Target.Column  8 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 If
End Sub


wer weis bescheid

Grusse

Karel