Ich möchte Berechnungen in einer UF durchführen, wobei bestimmte Kriterien erfüllt
sein sollten.
Wo liegt mein Fehler?
Danke!
Gruß
Olga
https://www.herber.de/bbs/user/102603.xlsm
With WS
For ii = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
'Alle Jahre berechnen
If Jahr = "Alle Jahre" Then
dUmsB = dUmsB + .Cells(ii, 2).Value
' Nur Jahr und dazugehöriges Projekt berechnen
ElseIf Jahr "Alle Jahre" And _
.Cells(ii, 7).Value = CSng(ComboBox2.Column(0)) And _
Year(.Cells(ii, 1)) = CSng(Jahr) Then
dUmsB = dUmsB + .Cells(ii, 2).Value
End If
Next ii
TextBox1.Value = FormatNumber(dUmsB, 2)
End With
Gruß, MCO