Office: Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Biegel · 27. Januar 2007

Halli Hallo,

ich möchte Prüfen ob es einen Wert (Datum) gibt und falls nicht soll die Msgbox dies aneigen.....
Das Problem ist, der Code springt vorher raus.

Code:

Public Sub worksheet_change(ByVal Target As Range)

If Target.Column 10 Then GoTo next_step:
' zweiten Change erlauben
Application.EnableEvents = False
On Error GoTo next_step:
If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents

End If
If not IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
End If

str_Datum = WorksheetFunction.VLookup(Target.Value, Worksheets("datum").Columns("a:c"), 2, false)

If Not IsDate(str_Datum) Then
MsgBox ("Es wurde keine passendes Datum zu '"& target.Value & '" gefunden")
Else
Target.Offset(0, 1).Value = str_Datum
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank
LG Biegel

:)

Sebastian Schulz · 29. Januar 2007

Hallo Biegel,

MsgBox ("Es wurde keine passendes Datum zu '"& target.Value & '" gefunden")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schreibe hier

Code:

MsgBox ("Es wurde keine passendes Datum zu '" & target.Value & " ' gefunden")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Biegel · 29. Januar 2007

Hallo Basti,

nein das mit der Msgbox ist und war nicht mein Problem, hab es nur falsch ergänzt hier im Editor.

Mein Problem ist folgendes, wenn kein Wert in der Vlookup (Sverweis) gefunden wird, würde eine Fehler gemeldet werden:

Laufzeitfehler 1004, die Worksheet Function Vlookup kann nicht zugeordnet werden" (so ungefähr)

Diesen fange ich ja ab mit meiner Routine und somit kommt auch keine Meldung etc....

LG Biegel

IngGi · 29. Januar 2007

Hallo Biegel,

so schaltest du vor der WorksheetFunction die Fehlerbehandlung um, so dass bei einem Fehler einfach der nächste Befehl ausgeführt wird und schaltest nach der WorksheetFunction wieder auf die alte Fehlerbahandlung zurück:
Code:

On Error Resume Next
str_Datum = WorksheetFunction.VLookup(Target.Value, Worksheets("datum").Columns("a:c"), 2, False)
On Error GoTo next_step
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Übrigens, statt:
Code:

If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents

End If
If not IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

reicht auch einfach:
Code:

Target.Offset(0, 1).ClearContents
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du fragst nämlich beide Möglichkeiten ab, machst dann aber in beiden Fällen dasselbe. *mrcool Oder nicht?

Gruß Ingolf

Biegel · 29. Januar 2007

Hallo,

stimmt. Sollte eigentlich einmal Code:

target.ClearContents
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und Code:

Target.Offset(0, 1).ClearContents
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

heissen. Hab den Code hier fix mit der Hand geschrieben und vergessen zu prüfen... (Wochenende war wohl zu hart)

Könnte man vielleicht nicht schon den Wert der Worksheetfunction prüfen, bevor ein Fehler kommt?

Alternativ mit find?

Code:

str_Datum = WorksheetFunction.find(Target.Value, Worksheets("datum").Columns(a:c))

If isdate(str_datum1) then

Target.Offset(0, 1).Value = WorksheetFunction.VLookup(Target.Value, Worksheets("datum").Columns("a:c"), 2, false)

else

MsgBox ("Es wurde keine passendes Datum zu '" & target.Value & "'gefunden")
Else

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Problem ist, die "find" Function geht nicht....

Danke schon mal für die Antworten.

LG Biegel

IngGi · 29. Januar 2007

Hallo Biegel,

Find ja, WorksheetFunction nein! In VBA gibt es eine eigenständige Find-Methode. Wird der gesuchte Wert gefunden, gibt die Methode die Fundzelle als Rangeobjekt zurück. Wird der gesuchte Wert nicht gefunden, gibt die Find-Methode Nothing zurück. Zum Abfragen brauchst du daher eine Range-Variable. Also ungefähr so:
Code:

Dim rng As Range
Set rng = Worksheets("datum").Range("A:A").Find(What:=Target)
If rng Is Nothing Then
'Wert gefunden, weiter mit VLookup
Else
'Wert nicht gefunden, weiter mit was auch immer
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es reicht übrigens, nur in Spalte A zu suchen, denn der SVERWEIS sucht ja auch nur in der Spalte ganz links, also A.

Gruß Ingolf

Biegel · 29. Januar 2007

Guten Morgen,

funktioniert alles bestens.

Hier noch mal der Ganze Code:

Code:

If Target.Column 10 Then GoTo next_step:
' zweiten Change erlauben
On Error GoTo next_step:
Application.EnableEvents = False

If IsEmpty(Target) Then Target.Offset(0, 1).ClearContents
Target.Offset(0, 1).ClearContents

Dim rnge As Range
Set rnge = Worksheets("datum").Range("A:A").Find(What:=Target)

If rnge Is Nothing Then
MsgBox ("Es wurde keine passendes Datum zu '" & Target.Value & "' gefunden")
Else
str_Datum = WorksheetFunction.VLookup(Target.Value, Worksheets("datum").Columns("a:c"), 2, False)
Target.Offset(0, 1).Value = str_Datum
End If

Application.EnableEvents = True
next_step:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lösung 2 (Schachtelcode):
Code:

If Target.Column 10 Then GoTo next_step:
' zweiten Change erlauben
Application.EnableEvents = False

On Error GoTo next_step1:

If IsEmpty(Target) Then Target.Offset(0, 1).ClearContents
Target.Offset(0, 1).ClearContents

str_Datum = WorksheetFunction.VLookup(Target.Value, Worksheets("datum").Columns("a:a"), 2, False)
Target.Offset(0, 1).Value = str_Datum

GoTo next_step3:

next_step1:
MsgBox ("Es wurde keine passendes Datum zu '" & Target.Value & "' gefunden")

next_step3:
Application.EnableEvents = True
next_step:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also dann, Vielen Dank noch einmal für Eure Hilfe....

Liebe Grüsse
Biegel

Office: Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Fehler in vlookup wenn kein Wert gefunden, wie prüfen? - Similar Threads - Fehler vlookup Wert

Fehler (0x800CCC78) beim Ausführen der Aufgabe "xx.yyyy@kabelmail.de - Nachrichten werden gesendet"

Fehler beim SVERWEIS Vermeidbar?

Installation schlägt fehl - Fehler in OfficeClickToRun.exe

Bei meinem Outlook (new) fehlen wichtige Funktionen!

Ständige Passwortabfrage und Kalendersyncronisations Fehler

Formel mit INDEX, MATCH und MAX gibt Fehler #NAME!

Wert Fehler