Fehler abfangen ISTNV und ISTVERWEIS in vba

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von DoSchwob.

    Fehler abfangen ISTNV und ISTVERWEIS in vba

    Hallo Forum,

    ich habe eine Kundenliste aus der ich mir mit einer UserForm über SVERWEIS
    Daten in Textfelder ziehen, gibt es die Kundennummer nicht gibt Excel einem ja "N/V" oder so etwas ähnliches zurück. In VBA bringt es das Programm zum Absturz, das wollte ich folgendermaßen abfangen:

    in Excel selbst klappts wunderbar:
    "S15 = 1563"

    Visual Basic-Quellcode

    1. =WENN(ISTNV(SVERWEIS(S15;B:R;17;FALSCH));"nicht da";SVERWEIS(S15;B:R;17;FALSCH))


    Visual Basic-Quellcode

    1. Private Sub btnKundenSuchen_Click()
    2. Dim Kundennummer as Integer
    4. Kundennummer = 1563
    6. With Application.WorksheetFunction
    7. If .IsNA(.VLookup(Kundennummer, ThisWorkbook.Sheets("Archiv 2").Range("B:R"), 17, True)) Then
    8. tfBeiwert1.Text = "nicht da"
    9. Else: tfBeiwert1.Text = .VLookup(Kundennummer, ThisWorkbook.Sheets("Archiv 2").Range("B:R"), 17)
    10. End If
    11. end with
    12. end sub


    Und obwohl es in der Liste keine Kundennummer "1563" gibt, springt es immer in den Else-Zweig und ich habe keinen Schimmer was daran flasch ist. Würde mich freuen wenn mir jemand helfen kann.

    MfG tony

Facebook
Telefonspende