Ich sitze vor einem Problem und hoffe mir kann einer helfen.
Mein Problem ist folgendes.
Eine Tabelle mit 3 Spalten.
1. Datum, 2. Zeit, 3. Werte
Nun versuche ich alle Werte mit gleichem Datum zu mitteln und in eine neue Spalte G mit zugehörigem Datum in Spalte F zu schreiben.
Ich habe meine Testtabelle mal angehängt.
https://www.herber.de/bbs/user/64797.xls
Mein Vergleichsmakro sieht bisher so aus, jedoch gibt er mir die Daten bisher nicht korrekt aus.
(Ich bin bisher nur soweit, dass er erstmal alle Daten in eine Variable packt und die mir am Ende eines Datums ausgeben soll.)
Komme aber irgendwie nicht weiter. Wo liegt da nen Fehler?
Ist mein Ansatz schon falsch?
Kann mir vielleicht einer nen Tipp geben, wie ich obiges Problem mit nem Vergleichsmakro lösen kann?
Freue mich auf Antworten.
Grüße
Michael
Sub Vergleichen()
Dim iRow As Long
Dim var As Long
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1) - Cells((iRow) + 1, 1) = 0 Then
var = var + Cells(iRow, 3)
Else
Cells(iRow, 5).Value = var
End If
iRow = iRow + 1
Loop
End Sub