VBA benutzerdefinierte Function um Sverweis zu erweitern

[MR]

Guten Abend,

ich wollte mir eine benutzerdefinierte Excel Funktion in VBA stricken. Zweck soll es sein, eine #NV Fehlermeldung abzufangen und durch eine sprechendere Fehlermeldung zu ersetzen. Üblicherweise mache ich das über eine geschachtelte Excel Formel folgendermaßen:
=wenn( istfehler( sverweis() ); "Fehlermeldung"; sverweis() )

um diese langwierige eingabe aber kürzer und übersichtlicher zu fassen wollte ich mir eine benutzerdefinierte vba function erstellen. leider klappt es nicht so recht. ich bin aber ratlos woran es liegt.

Function mySverweisNV(c As Range, m As Range, r As Integer, b As Boolean, t As String) As Variant
If IsError(VLookup(c, m, r, b)) Then
mySverweisNV = t
Else
mySverweisNV = VLookup(c, m, r, b)
End If
End Function

Vielen Dank im Voraus für hilfreiche Vorschläge!

beste Grüße,

MR

[Susanne Wenzel]

Hallo Michael,
Du hast leider nicht geschrieben, welche Excelversion Du benutzt.

Post by MR
ich wollte mir eine benutzerdefinierte Excel Funktion in VBA stricken.
Zweck soll es sein, eine #NV Fehlermeldung abzufangen und durch eine
sprechendere Fehlermeldung zu ersetzen. Üblicherweise mache ich das über
eine geschachtelte Excel Formel folgendermaßen: =wenn( istfehler(
sverweis() ); "Fehlermeldung"; sverweis() )
um diese langwierige eingabe aber kürzer und übersichtlicher zu fassen
wollte ich mir eine benutzerdefinierte vba function erstellen.

Falls es Excel2010 ist (vielleicht gibt es das auch schon in 2007?), gibt
es eine Funktion, die Du direkt benutzen kannst: WennFehler. Verkürzt die
Eingabe jedenfalls gewaltig, habe ich mittlerweile regelmäßig im Einsatz.

Vielleicht hilft Dir das ja schon weiter?

Viele Grüße aus dem hohen flachen Norden Deutschlands
Susanne

[MR]

Hallo Susanne,

Post by Susanne Wenzel

Post by MR
um diese langwierige eingabe aber kürzer und übersichtlicher zu fassen
wollte ich mir eine benutzerdefinierte vba function erstellen.

Falls es Excel2010 ist (vielleicht gibt es das auch schon in 2007?), gibt
es eine Funktion, die Du direkt benutzen kannst: WennFehler. Verkürzt die
Eingabe jedenfalls gewaltig, habe ich mittlerweile regelmäßig im Einsatz.
Vielleicht hilft Dir das ja schon weiter?

eine sehr schöne alternative. vielen dank für den tipp! nichtsdestotrotz hätte mich schon interessiert wo der fehler in meinem makro liegt?

beste Grüße,

MR

[Claus Busch]

Hallo MR,

Post by MR
eine sehr schöne alternative. vielen dank für den tipp! nichtsdestotrotz hätte mich schon interessiert wo der fehler in meinem makro liegt?

VLookup ist in dieser Art nicht deklariert. Probiere es so:

Function mySverweisNV(c As Range, m As Range, r As Integer, _
b As Boolean, Optional t As String) As Variant

If IsError(Application.VLookup(c, m, r, b)) Then
mySverweisNV = t
Else
mySverweisNV = Application.VLookup(c, m, r, b)
End If
End Function


Mit freundlichen Grüßen
Claus Busch

[MR]

Funktioniert, vielen Dank Hr Busch!