Wählen Sie die Zelle in einem Bereich, der hat einen maximalen Wert

Ich versuche, wählen Sie eine Zelle in Excel-VBA 2007

Beispiel in Zeile 2, die Zellen A bis H haben einige zahlen, aber die Zelle B2 den höchsten Wert. gibt es eine Formel, die ich verwenden könnte, um die Adresse der Zelle B2 ?

Auf dieser Grundlage gibt es eine Möglichkeit, ich könnte eine variable verwenden, um einen Bereich auszuwählen(":") ?

Ich bin ein Neuling auf VBA so dass jede Hilfe wäre sehr geschätzt werden.

Dank

InformationsquelleAutor zack | 2011-04-13
  1. 2
    =CELL("address",INDEX(A2:H2,MATCH(MAX(A2:H2),A2:H2,0)))

    BEARBEITEN.

    Sub max_value_address()
Dim i As Long
i = 2
'This example assigns to A1 cell the address of max value in the range a2:h2
Range("a1").Formula = "=CELL(""Address"",INDEX(A" & i & ":H" & i & ",MATCH(MAX(A" & i & ":H" & i & "),A" & i & ":H" & i & ",0)))"
End Sub

    EDIT 2.
    Diese version ist ein wenig übersichtlicher.

    Sub max_value_address()
Dim i As Long
Dim str As String
i = 2
str = "a" & i & ":h" & i 'assign to str a2:h2
Range("a1").Formula = "=CELL(""address"",INDEX(" & str & ",MATCH(MAX(" & str & ")," & str & ",0)))"
End Sub
    • +1! Ich mag es wirklich, wenn sich jemand findet eine elegantere Excel-Möglichkeit zu tun, diese einfachen Dinge. Ich werde schrecklich mit Excel-Formeln 😀
    • Dank Tiago. 🙂 @zack: wenn Sie nicht brauchen, $ Symbole fügen Sie einfach replace () - Funktion, um meine Formel.
    • danke Nick..diese Formel funktioniert, wenn ich es in eine Zelle in excel, aber nicht arbeiten, wenn Sie versuchen, eine variable = "deine Formel hier" in den VB-editor,..nicht kompilieren?? alles, was Im tun falsch hier?? auch kann ich so etwas wie Range("E[row_variable]:M[row_variable]"), um einen Bereich auszuwählen?
    • Ich aktualisiert meine Antwort. Ich hoffe, dass dies ist, was Sie gesucht haben.
    InformationsquelleAutor Nicola Cossu
  2. 0

    Den code unten könnte Ihnen helfen, Ihr Ziel zu erreichen. Lassen Sie uns wissen, wenn es unklar.

    Sub GetHigherValueCellAddress()

    Dim oCell As Excel.Range
    Dim oRange As Excel.Range
    Dim vPrevValue As Variant
    Dim sAddress As String

    Set oRange = Sheets(1).Range("A1:C2")

    For Each oCell In oRange

        If oCell.Value > vPrevValue Then

            sAddress = oCell.Address
            vPrevValue = oCell.Value

        End If

    Next oCell

    MsgBox sAddress

End Sub
    InformationsquelleAutor Tiago Cardoso
Schreibe einen Kommentar