Ich kenne mich mit den Forengeschichten leider nicht aus.
Das ist keine Entschuldigung. Jedes Forum hat Regeln. Hier stehen die wenigen, die es gibt, sogar direkt über und unter dem Eingabefeld des Beitrags... vielleicht sollten diese noch extrem flackern, damit man erstmal mit einem epileptischen Anfall unter dem Tisch landet, bevor man mit dem Schreiben anfangen kann... vermutlich würde nicht einmal das helfen. - Leute, nehmt euch in Foren die Zeit zum Lesen!
Ganz allgemein, könnte man so ansetzen:
(ungetestet!)
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
|