Ziel ist es: Wenn in der Zelle 3 mehrere Datumsangaben wie z.B. 08.10 sind, dann soll er von allen gefundenen Zellen mit diesem gleichen Datum den Inhalt (die 4. Zeile nach unten = 3 + 4 = Inhalt der 7. Zeile) von allen gefundenen ERgebnis summieren.
Das ist der Code den ich letzte Woche bekommen habe um den VErgleich zu machen:
Option Explicit
Sub tst()
Dim spQ%, zeZ&
zeZ = 23
If Cells(23, 2) = Left(Format(Cells(3, spQ), "dd. mmm"), 5) Then _
zeZ = zeZ + 1: Cells(zeZ, 2) = Cells(4, spQ)
Next spQ
End Sub
DAnke an Erich aus Kamp-Lintfort!!!
https://www.herber.de/forum/archiv/688to692/t690460.htm