AW: Bedingung Datum zerlegen
11.12.2019 14:42:14
fcs
Hallo Jonas,
Bei den Werten scheint es sich ja um Wochenwerte zu handel.
Wenn du ungefähr Monatsweise summieren willst, dann musst du festlegen, ob der 1. Tag (Montag) oder der letzte Tag ((Sonntag) der Woche beim Summieren für den Monat genommen werden soll.
Nachfolgend ein Makro-Ansatz, den du an dein Tabellenblatt anpassen musst.
LG
Franz
Sub ZaehlenSpezial()
Dim wks As Worksheet
Dim sDatum As String, iMonat_1 As Integer, iMonat_2 As Integer, iMonat As Integer
Dim dblWert As Double, dblSumme As Double
Dim lZeile As Long
Set wks = ActiveSheet
With wks
iMonat = .Range("G2").Value 'Vergleichsmonat, für den Summe berechnet werden soll
For lZeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 3 'Startzeile ggf. anpassen
sDatum = .Cells(lZeile, 1).Text
dblWert = .Cells(lZeile + 2, 1).Value
iMonat_1 = Val(Mid(sDatum, 4, 2))
iMonat_2 = Val(Mid(sDatum, 10, 2))
'Vergleich der Monatswerte
If iMonat_2 = iMonat Then
dblSumme = dblSumme + dblWert
End If
Next lZeile
'Summe in Zelle eintragen
.Range("G5").Value = dblSumme
End With
End Sub