Problem mit Max Funktion

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von roddy.

    Problem mit Max Funktion

    Möchte eine Funktion schreiben, die den Maximalen Wert einer Spalte ausliest bei gegebenem Zeilenumfang:

    Visual Basic-Quellcode

    1. Public Function leseMaxWertAus (beginZeile, endZeile, Spalte)
    2. Dim maxWert As Integer
    3. 'Finde den Wert
    4. maxWert = ActiveSheet.UsedRange... ?!?!
    5. leseMaxWertAus = maxWert
    6. End Function

    wie wird der max wert korrekt befüllt?

    Mit integer wäre ich etwas vorsichtig.

    Ich habe mal schnell was mit long gemacht. Aber auch da werden Nachkommastellen abgeschnitten...
    Die 1. Funktion ist zwar länger, lässt sich aber nicht durch Datumsformatierte Zellen oder ähnlich verwirren.


    Visual Basic-Quellcode

    1. Sub Los()
    2. Dim erg As Long
    4. erg = leseMaxWertAus(3, 22, 2)
    5. MsgBox erg
    6. erg = leseMaxWertAus1(3, 22, "B")
    7. MsgBox erg
    9. End Sub
    11. Public Function leseMaxWertAus(ByVal BeginZeile As Long, ByVal endZeile As Long, ByVal Spalte As Long) As Long
    12. Dim maxWert As Long
    13. Dim iSpalte As Integer
    14. Dim lZeile As Long
    17. On Error GoTo Fehler
    18. maxWert = -2147483648#
    19. For lZeile = BeginZeile To endZeile
    20. If IsNumeric(Cells(lZeile, Spalte)) Then
    21. If CLng(Cells(lZeile, Spalte)) > maxWert Then
    22. maxWert = CLng(Cells(lZeile, Spalte))
    23. End If
    24. End If
    25. Next lZeile
    26. leseMaxWertAus = maxWert
    27. GoTo Fertig
    29. Fehler:
    30. MsgBox Err.Description, vbOKOnly + vbCritical, "Fehler beim Maxwert ermitteln:"
    31. Err.Clear
    33. Fertig:
    34. On Error GoTo 0
    36. End Function
    38. Public Function leseMaxWertAus1(ByVal BeginZeile As Long, ByVal endZeile As Long, ByVal Spalte As String) As Long
    40. Dim bereich As String
    41. bereich = Spalte & Trim(Str(BeginZeile)) & ":" & Spalte & Trim(Str(endZeile))
    42. leseMaxWertAus1 = WorksheetFunction.Max(Range(bereich))
    44. End Function
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „peterfido“ ()

    Gute Frage, wird in diesem Fall nicht benötigt... Außerdem muss es beim ersten Mal deaktiviert werden, sonst macht das 2 Mal keinen Sinn...

    Ich habs mal rausgenommen. Für welche von beiden Funktionen hast Du Dich entschieden?
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    hab mich für die erste Variante entschieden. Wollte Sie noch umschreiben, um einen minimalen Wert aus dem Bereich herauszufinden.

    Visual Basic-Quellcode

    1. Public Function leseMinWertAus(ByVal BeginZeile As Long, ByVal endZeile As Long, ByVal spalte As Long) As Long
    3. On Error GoTo Fehler
    4. minWert = 2147483648#
    5. For lZeile = BeginZeile To endZeile
    6. If IsNumeric(Cells(lZeile, spalte)) Then
    7. If CLng(Cells(lZeile, spalte)) < minWert Then
    8. minWert = CLng(Cells(lZeile, spalte))
    9. End If
    10. End If
    11. Next lZeile
    12. leseMinWertAus = minWert
    13. GoTo Fertig
    15. Fehler:
    16. MsgBox Err.Description, vbOKOnly + vbCritical, "Fehler beim Ermitteln des min Werts:"
    17. Err.Clear
    19. Fertig:
    20. On Error GoTo 0
    22. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „XtrEvil“ ()

    Dies lässt sich auch mit den Funktionen WorksheetFunction.Max bzw. WorksheetFunction.Min machen.

    Beispielsweise so:

    Visual Basic-Quellcode

    1. leseMaxWertAus = WorksheetFunction.Max(Range(Cells(beginZeile, Spalte), Cells(endZeile, Spalte)))

    Ist doch meine 2. Funktion, roddy...
    inkl der Bemerkung, dass die Worksheet Funktion bei bestimmten Zellinhalten nicht immer das gewünschte Ergebnis liefert.
    Gruß
    Peterfido

    Keine Unterstützung per PN!