Ich hab hier Schwierigkeiten, einen Fehler abzufangen, der beim Auslesen aus einem anderen Arbeitsblatt per VLOCKUP (SVerweis) auftritt. Ich komme einfach nicht darauf, wie man fragen kann, ob ein Fehler aufgetreten ist, oder direkt, ob in der Zelle #NV steht.
Range("BC2").Select
Do Until Selection.Offset(0, -14).Formula = ""
Selection.FormulaR1C1 = "=VLOOKUP(RC[-54],logisalt,55,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "@"
If Selection.Text = "#NV" Then
Selection.Offset(0, -1).Formula = "neu"
Selection.Value = 1
Else
Selection.NumberFormat = "General"
Select Case Selection.Value
Case Is = 0
Selection.Offset(0, -1).Select
Selection.FormulaR1C1 = "=VLOOKUP(RC[-53],logisalt,54,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Offset(0, 1).Select
Case Is > 0
Selection.Value = Selection.Value + 1
Selection.Offset(0, -1).Formula = "neu"
Case Else
End Select
End If
Selection.Offset(1, 0).Select
Loop