Guten Tag
In einem Code ersetze - ich wenn gewisse Bedingungen erfüllt sind - einen Zellwert mit einem Wert, den ich mittels VLOOKUP abfrage.
Wenn nun im Lookuptable der entsprechende Wert nicht hinterlegt ist, möchte ich dies mit einer Message-Box anzeigen lassen. Ich habe versucht, als weitere Bedingung eine Abfrage hinzuzufügen, ob die WorksheetFunction einen Fehler ergibt, doch das scheint nicht zu klappen. Anstatt TRUE ergibt
IsError(rngZelle.Value = Application.WorksheetFunction.VLookup(rngZelle.Offset(0, 2), Range("FIBU_KTO"), 2, False)) wieder ein Fehlerwert.
Wie muss der Code lauten, dass ich die anstprechende Message-Box erhalte?
Bedingungen?
Len(rngZelle.Value) = 13 'String hat die Länge 13
Left(rngZelle.Value, 6) = "110000" oder Left(rngZelle.Value, 6) = "130000"
Application.WorksheetFunction.VLookup(rngZelle.Offset(0, 2), Range("FIBU_KTO"), 2, False) ergibt Fehlerwert
Vielen Dank für eine Antwort
Gruss, Peter
PS: Gescheiterter Versuch:
If Len(rngZelle.Value) = 13 And (Left(rngZelle.Value, 6) = "110000" Or Left(rngZelle.Value, 6) = "130000") And IsError(rngZelle.Value = Application.WorksheetFunction.VLookup(rngZelle.Offset(0, 2), Range("FIBU_KTO"), 2, False)) Then MsgBox rngZelle.Offset(0, 2) & " - Wert nicht definiert"