VBA Lösungsvorschlag
02.09.2014 16:11:12
ChrisL
Hi Tobias
Function MinMaxSpezial(sKriterium1, sKriterium2, rngBereich As Range, bMinMax As Boolean) As _
Variant
Dim ersteZeile As Long, letzteZeile As Long
Dim ersteSpalte As Integer, letzteSpalte As Integer
Dim iZeile As Long, iSpalte As Integer
ersteZeile = rngBereich.Row
letzteZeile = rngBereich.Row + rngBereich.Rows.Count - 1
ersteSpalte = rngBereich.Column
letzteSpalte = rngBereich.Column + rngBereich.Columns.Count - 1
For iZeile = ersteZeile To letzteZeile
If Cells(iZeile, ersteSpalte) = sKriterium1 And Cells(iZeile, ersteSpalte + 1) = _
sKriterium2 Then
If bMinMax Then
MinMaxSpezial = WorksheetFunction.Max(Range(Cells(iZeile, ersteSpalte + 2), Cells( _
iZeile, letzteSpalte)))
Else
MinMaxSpezial = WorksheetFunction.Min(Range(Cells(iZeile, ersteSpalte + 2), Cells( _
iZeile, letzteSpalte)))
End If
Exit Function
End If
Next iZeile
End Function
Alt + F11, Menü "Einfügen", Modul, Code reinkopieren
D8 = =minmaxspezial($B8;$C8;$B$3:$H$4;1)
D9 = =minmaxspezial($B9;$C9;$B$3:$H$4;1)
E8 = =minmaxspezial($B8;$C8;$B$3:$H$4;0)
E9 = =minmaxspezial($B9;$C9;$B$3:$H$4;0)
Parameter 1 = Suchkriterium 1
Parameter 2 = Suchkriterium 2
Parameter 3 = Suchbereich
Parameter 4 = Min oder Max (0 resp. Falsch = Minimum, 1 resp. Wahr = Maximum)
cu
Chris