Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
rngLiefname
As
Range
Dim
rngWarengrp
As
Range
Dim
liefname
As
String
Dim
Warengruppe
As
String
Set
rngLiefname = Range(
"C3"
)
If
Target.Address(0, 0) =
"C3"
Then
If
Target <>
""
Then
On
Error
GoTo
Ausgang
liefname = Application.VLookup(Target.Value, Workbooks(
"Artikelpass_vorbereiten.xlsm"
) _
.Sheets(
"Lieferantenkontakte"
).Range(
"B2:H1000"
), 4,
False
)
Range(
"C5"
) = liefname
Else
Range(
"C5"
) =
""
End
If
Ausgang: Range(
"C5"
) =
"Lieferantendaten nicht hinterlegt!"
Exit
Sub
End
If
Set
rngWarengrp = Range(
"C9"
)
If
Target.Address(0, 0) =
"C9"
Then
If
Target <>
""
Then
On
Error
GoTo
KPWG
Warengruppe = Application.VLookup(Target.Value, Workbooks(
"Artikelpass_vorbereiten.xlsm"
) _
.Sheets(
"Tabelle2"
).Range(
"A2:B11000"
), 2,
False
)
Range(
"C11"
) = Warengruppe
Else
Range(
"C11"
) =
""
End
If
Exit
Sub
End
If
KPWG: Range(
"C11"
) =
"PWUG existiert nicht!"
End
Sub
Gruß Werner