Option Explicit
Sub Test()
Dim wksInput As Excel.Worksheet
Dim wksList As Excel.Worksheet
Dim lngListLastRow As Long
Dim blnFound As Boolean
Dim i As Long
Set wksInput = Worksheets("Eingabe")
Set wksList = Worksheets("Liste")
lngListLastRow = wksList.Cells(wksList.Rows.Count, "A").End(xlUp).Row
blnFound = False
For i = 1 To lngListLastRow
If wksList.Cells(i, "F").Value = wksInput.Range("L15").Value _
And wksList.Cells(i, "I").Value = wksInput.Range("Q13").Value _
And wksList.Cells(i, "J").Value = wksInput.Range("Q15").Value _
Then
blnFound = True
Exit For
End If
Next
If blnFound Then
wksList.Cells(i, "L").Value = _
wksList.Cells(i, "L").Value + wksInput.Range("Q19").Value
Else
wksList.Cells(lngListLastRow + 1, "F").Value = wksInput.Range("L15").Value
wksList.Cells(lngListLastRow + 1, "I").Value = wksInput.Range("Q13").Value
wksList.Cells(lngListLastRow + 1, "J").Value = wksInput.Range("Q15").Value
wksList.Cells(lngListLastRow + 1, "L").Value = wksInput.Range("Q19").Value
End If
End Sub