Problem mit Range/Search Function
Holger
ich suche in einem Range nach einem Wert, den ich als Variable übergebe.
Das Problem ist nun, wenn es diesen Wert nicht gibt, ist das Ergebnis = nothing.
Leider kann ich das nicht abfragen, da erscheint unzuläsige Funktion.
Aber seht selber, wie kann ich feststellen ob der Search eine Zelle zurückliefert oder nicht?
Public Function DeliveryYesNo(ByVal rngDeliveryMatrix As Range, _
ByVal curFrequency As String, _
ByVal curPeriod As String) As Boolean
Dim rngCurPer, rngCurFrq As Range
Set rngCurPer = rngDeliveryMatrix.Find(What:=curPeriod, lookat:=xlWhole)
Set rngCurFrq = rngDeliveryMatrix.Find(What:=curFrequency, lookat:=xlWhole)
If rngCurFrq = Nothing Then 'DAS GEHT EBEN NICHT!"""
MsgBox "Achtung: Ungültige Frequenz angegeben " & curFrequency
Exit Sub
Else
If Cells(rngCurPer.Row, rngCurFrq.Column).Value = "yes" Then
DeliveryYesNo = True
Else
DeliveryYesNo = False
End If
End If
End Function