Excel VBA: få svar fra function
Hej eksperter !Jeg har en egen funktion, som jeg gerne vil have til at give et svar hvis ikke den fandt det den søgte.
Den gennemløber en kolonne (defineret som ColNr) for at lede efter en dato (defineret som InDate). Koden kommer her:
Function FindDateRowInCol(InDate As Date, ColNr As Integer)
' find dato i en kolonne, og returner rækkenummer
Dim i As Integer
Dim LastRow As Integer
LastRow = Range("EndRow").Row
For i = 1 To LastRow
If ActiveSheet.Cells(i, ColNr).Value = InDate Then
FindDateRowInCol = i ' returns rownumber
Exit For
End If
Next i
End Function
' find dato i en kolonne, og returner rækkenummer
Dim i As Integer
Dim LastRow As Integer
LastRow = Range("EndRow").Row
For i = 1 To LastRow
If ActiveSheet.Cells(i, ColNr).Value = InDate Then
FindDateRowInCol = i ' returns rownumber
Exit For
End If
Next i
End Function
Mit problem går på at når den støder på at dato ikke findes, så vil jeg gerne have den til at svare at der ikke blev fundet den søgte dato i kolonnen.
Jeg forsøgte at skyde en if-sætning ind i min for-løkke,
If Not Int(FindDateRowInCol) Then
MsgBox "Datoen " & InDate & " blev ikke fundet i kolonne " & ColNr
End If
men så svarer den utallige gange det samme. Antageligt for hvert loop.MsgBox "Datoen " & InDate & " blev ikke fundet i kolonne " & ColNr
End If
Nogen forslag til hvordan jeg skal bygge den for kun at få det ene svar jeg ønsker, hvis datoen ikke blev fundet.
