Thread: Max einer Spalte aber mit bedingung

OK, DBMAX wäre auch noch eine Lösung.

Eine Frage hab ich noch ich hab mir nun auch noch eine Formel selbst gemacht, aber ein Problem
die Formel ist nicht im selben Sheet

und ich muss nun da ich mit cells arbeite das Sheet als Kriterium in der Syntax ( Blatt ) abfragen


Frage gibt es einen WEg wie ich aus Filter_spalte As Range den Blattnamen ermitteln kann? weil die Zelladressen hab ich mit .Adress usw. aber das Blatt bekomme ich nicht

Code:

Function max_min_mit_bedingung(Filter_spalte As Range, suchfilterkrit As String, datums_spalte As Range, Blatt As String)
'Function Summewenn2(Bereich1 As Range, Bereich2 As Range, Bereich3 As Range, Suchkriterium1 As Long, Suchkriterium2 As Long) As Variant

Dim a As Variant
Dim rng As Range

Application.Volatile
min_wert = 99999999 
max_wert = 0

For Each rng In Filter_spalte
    If LCase(rng) = LCase(suchfilterkrit) Then ' And Cells(rng.Row, datums_spalte.Column) = Suchkriterium2 Then
        
        If Worksheets(Blatt).Cells(rng.Row, datums_spalte.Column).Value > max_wert Then
            max_wert = Worksheets(Blatt).Cells(rng.Row, datums_spalte.Column).Value
        Else
        End If
        
        If Worksheets(Blatt).Cells(rng.Row, datums_spalte.Column).Value < min_wert Then
            min_wert = Worksheets(Blatt).Cells(rng.Row, datums_spalte.Column).Value
        Else
        End If
        
    Else
    End If
Next

max_min_mit_bedingung = Format(min_wert, "YYYY-MM") & " - " & Format(max_wert, "YYYY-MM")

End Function