Parameterübergabe

Option Explicit
Dim blFounded As Boolean

Sub main()
blFounded = False
'Ruft Funktion suche auf  
 blFounded = suche(blFounded)
 'Wenn blFounded = True wurde was gefunden  
 If blFounded = True Then
    MsgBox "Es wurde was gefunden"  
 Else
    MsgBox "Es wurde nichts gefunden"  
 End If
 End Sub

Function suche(ByRef blFounded As Boolean)
    Dim c As Object, d As Object
    Dim firstAddress As String

    With Worksheets(5).Range("a1:m60")  
    'Suche nach Logbuch  
    Set c = .Find("Logbuch", LookIn:=xlValues)  
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            blFounded = True
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    'Suche Nach Logbook  
    Set d = .Find("Logbook", LookIn:=xlValues)  
    If Not d Is Nothing Then
        firstAddress = d.Address
        Do
            blFounded = True
            Set d = .FindNext(d)
        Loop While Not d Is Nothing And d.Address <> firstAddress
    End If
    End With
 End Function