Option
Explicit
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
objCell
As
Range
Dim
strChar
As
String
With
Target
If
.Address =
"$A$1"
Then
Set
objCell = Tabelle1.Columns(1).Find(What:=.Value, LookIn:=xlValues, LookAt:=xlWhole)
If
objCell
Is
Nothing
Then
Call
MsgBox(
"Wert nicht gefunden...!"
, vbExclamation)
Else
With
Cells(1, 8)
If
.Value <> vbNullString
Then
strChar =
","
.Value = .Value & strChar & objCell.Offset(0, 1).Value
End
With
Set
objCell =
Nothing
End
If
Application.EnableEvents =
False
.Value = vbNullString
Application.EnableEvents =
True
End
If
End
With
End
Sub