Option Explicit
 
Sub SucheDaten()
 
    Dim i As Integer
 
    'Ab der 2. Zeile beginnen, 1. Zeile = Überschriften
    i = 2
 
    With Worksheets(1)
        Do While Not IsEmpty(.Cells(i, 1))
            .Cells(i, 10) = SearchData(.Cells(i, 7), .Cells(i, 8), .Cells(i, 9))
            i = i + 1
            DoEvents
        Loop
    End With
 
End Sub
 
Private Function SearchData( _
    sKrit1 As String, _
    sKrit2 As String, _
    sKrit3 As String) As String
 
    Dim i As Integer
 
    'Ab der 2. Zeile beginnen, 1. Zeile = Überschriften
    i = 2
 
    With Worksheets(2)
        Do While Not IsEmpty(.Cells(i, 1))
            If sKrit1 = .Cells(i, 1) And _
                sKrit2 = .Cells(i, 2) And _
                sKrit3 = .Cells(i, 3) Then
 
                SearchData= .Cells(i, 4)
                Exit Function
            End If
            i = i + 1
            DoEvents
        Loop
        SearchData = "NN"
    End With
 
End Function