Hallo zusammen,
ich würde gerne bei 2 Worksheets Changes ein unterschiedliches Errohandling haben. Zurzeit gibt er mir wenn ich C3 falsch ausfülle beide Error Meldungen in die Felder ein. Es soll aber nur die jeweilge vom On Error GoTo genutz werden. Wie muss ich das machen?
Und bei dem zweiten Change möchte ich eigentlich kein Feld beschreiben sondern direkt eine MsgBox ausgegeben bekommen.
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!"
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
End If
Exit Sub
KPWG: Range("C11") = "PWUG existiert nicht!"
End Sub
|