Excel Spalte einlesen und größte Zahl ermitteln

  • Möchte aus einer Exceldatei, wo in Spalte C ca 20 Werte stehen, den größten Wert ermitteln
    und dann soll mit den Werten der Spalten A und B, die in der selben Zeile wie der größte Wert stehen, weitergearbeitet werden.

    Hoffe man versteht den langen Satz noch!? 8|

    Dachte da vielleicht an _excel_rangevalidate, habe aber keine Ahnung wie man sowas am besten umsetzt.

    Hoffe mal wieder auf eure Hilfe.

  • ich weiß ja nicht, aber Excel bietet dafür alle Funktionen um direkt das Ergebnis zu erzielen.

    Das Ergebnis verwendest Du dann als Referenzzeile, um nur die Zellen aus A und B mit autoit auszulesen.

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

  • Als Start hilft vielleicht das hier (VBA):

    [autoit]

    Determine smallest value in range, highlight and return its address

    [/autoit][autoit][/autoit][autoit]

    Sub Smallest_Value_Highlight_Address()
    'Determines smallest value in range, highlights it and returns its address
    'Cells with dates also return a value, and get covered for determining smallest value. Percentages will convert and return numerics.
    'Determines values from the active worksheet
    Dim strData As String
    Dim rng As Range
    Dim vValue As Variant
    Dim rngCol As Range
    Dim lngRow As Long
    Dim rngAdd As Range
    'Enter desired range in which to find the smallest value
    strData = "A1:Z100"
    Set rng = Range(strData)
    'Determines smallest value in range
    vValue = Application.WorksheetFunction.Min(rng)
    For Each rngCol In rng.Columns
    'Determines in case the smallest value exists in a particular column
    If Application.WorksheetFunction.CountIf(rngCol, vValue) > 0 Then
    'Returns row number of the smallest value, in the column which has the same
    lngRow = Application.WorksheetFunction.Match(vValue, rngCol, 0)
    'Returns cell address of the smallest value
    Set rngAdd = rngCol.cells(lngRow, 1)
    'Selects smallest value to highlight with color
    rngAdd.Select
    With Selection
    .Interior.Color = RGB(255, 255, 0)
    End With
    'Message displays the searched range, smallest value, and its address
    MsgBox "Smallest Value in Range(""" & strData & """) is " & vValue & ", in Cell " & rngAdd.Address & "."
    Exit Sub
    End If
    Next
    End Sub

    [/autoit]


    Habe ich von hier: http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=105:find-smallest-and-largest-value-in-range-with-vba-excel&catid=79&Itemid=475