Datumsvergleich und Zellen addieren per VBA
Johannes
nachdem ich sehr lange hier im Forum unterwegs war, jedoch keine direkte Lösung gefunden habe melde ich mich mal zu Wort. Auch ausprobieren hat nicht viel genutzt. Ich benutze gerade folgende zwei Makros.
1: Zwischensumme:
Sub zwischensumme()
Sheets("Historie").Select
With Range("C108")
Range("C108") = Range("C108") + Range("C107")
End With
End Sub
2: Datumsvergleich und Historie schreiben
Sub historiezumdatum()
Dim rngDatum As Range
With Worksheets("Historie")
Set rngDatum = .Range("B111:B130").Find(Worksheets("Historie").Range("B110").Value, LookIn:= _
xlValues, lookat:=xlWhole)
If Not rngDatum Is Nothing Then
.Range("C107:M107").Copy
rngDatum.Offset(0, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
bln = True
Exit Sub
End If
End With
MsgBox "Datum wurde nicht gefunden!", 48
End Sub
Ziel ist es jedoch, die Werte nicht nur zu kopieren (Makro2) sondern auch zu addieren. Und das Tageweise. Das heißt wenn Werte in Zeile 107 verändert werden und das Makro ausgeführt wird, werden in der Zeile mit dem aktuellen Datum die Werte addiert.
Verwendet wird das ganze als Materialbestellsystem welches eine Historie schreibt welche Materialen in welcher Menge pro Tag bestellt wurde. Es sind jedoch mehrere Bestellungen pro Tag möglich, daher die Summierung. Habt ihr eine Idee?