Bereich durchsuchen
14.01.2021 21:36:07
Eberhard
Der Bereich "F8:F38" wird zusammengezählt. Im Bereich "D8:D38" soll geprüft werden, ob sich das Wort "Vignette 2021" befindet. ACHTUNG! Die Zahl "2021" kann sich verändern. Befindet sich nun das Wort "Vignette 2021" in diesem Bereich, so sollten diese Zeilen NICHT im Bereich "F8:F38" zusammengezählt werden! Habe da mal etwas versucht. Der erste Schritt funktioniert soweit. Aber wie krieg ich dies mit dem Bereich "D8:D38" hin? Zur Info. In der Zelle [A40] befindet sich die Zahl 7.7! Hoffe Ihr versteht in etwa was ich meine?
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Bereich As Range
Dim a As Integer
Set Bereich = Range("F8:F38")
a = Application.WorksheetFunction.Sum(Range("F8:F38"))
Range("F40") = Evaluate((a * [A40]) / 100)
End Sub
Auf eine Hilfe würde ich mich freuen.
Gruss Daniel