Sub SearchNewDatenInputs()
Dim rngDBInput As Range
Dim rngDB As Range
Dim sNew As String
Dim rngCheck As Range, rngSearch As Range
Dim bFound As Boolean
Set rngDBInput = Dateninput.UsedRange
Set rngDB = Lagerbestand.UsedRange
For Each rngCheck In rngDBInput.Rows
bFound = False
For Each rngSearch In rngDB.Rows
If rngSearch.Cells(1, 1) = rngCheck.Cells(1, 1) And rngSearch.Cells(1, 2) = rngCheck.Cells(1, 2) Then
bFound = True
Exit For
End If
Next
If Not bFound Then
sNew = sNew & IIf(sNew = "", "", ", ") & rngCheck.Cells(1, 1) & "-" & rngCheck.Cells(1, 2)
End If
Next
If sNew <> "" Then
MsgBox ("Neue Modelle: " & sNew)
End If
End Sub