Hallo Community,
ich habe zu meinem Thema schon gute Hilfe hier aus Forum erhalten. Dafür erstmal vielen Dank. Leider ist mein Problem noch nicht gelöst.
Ich habe mal eine Datei mit angefügt, um das Problem besser zu erklären. In der Spalte B befinden sich Bereiche zwischen zwei Hexzahlen und in Spalte D Zahlenwerte. ich möchte jetzt, dass in jeden Bereich der höchste Zahlenwert ausgegeben wird. Dazu habe ich auch eine MaxWenn-Formel von einem hier aus dem Forum erhalten:
Public Function MaxWenn(ByVal Werte, ByVal Bereich, ByVal Abgleicher) As Variant Dim Erg Dim i Dim Eingang, Referenz On Error Resume Next Eingang = Werte 'To Array Referenz = Bereich If Werte.Columns.Count = 1 Then For i = LBound(Eingang, 1) To UBound(Eingang, 1) If Referenz(i, 1) = Abgleicher Then If Eingang(i, 1) > Erg Then Erg = Eingang(i, 1) Next Else For i = LBound(Eingang, 2) To UBound(Eingang, 2) If Referenz(1, i) = Abgleicher Then If Eingang(1, i) > Erg Then Erg = Eingang(1, i) Next End If MaxWenn = Erg End Function >
Problem ist jetzt nur das in der Spalte E nicht immer der höchste Wert pro Bereich angezeigt wird. Das passiert immer dann, wenn in der letzten Zeile vor einer neuen Hexzahl kein Zahl angegeben ist. Ist dort eine Zahl wird der Wert in Spalte E korrekt angezeigt. Habe die beiden Zeilen mal Grün markiert ( Zeile 140 und 162).
Ich kann leider den Fehler nicht finden und hoffe mir kann jemand helfen.
Vielen Dank im Voraus
Gruß Kai
https://www.herber.de/bbs/user/155498.xlsm