|
Hallo VBA-Gemeinde,
bei dem Versuch, die Zeilenposition eines Maximalwertes in VBA zu bestimmen (eine eigentlich sehr simple Aufgabe) habe ich mehrere Möglichkeiten durchprobiert, komme jedoch zu keiner funktionierenden Lösung.
Die Tabelle ist wie folgt aufgebaut:
In Spalte F sind Zahlenwerte eingetragen, welche zu und abnehmen und ein eindeutiges Maximum besitzen.
Nun möchte ich die Zeilenposition dieses Maximalwertes bestimmt haben, um mich im nächsten Schritt auf diese Position beziehen zu können um zugehörige Werte auszulesen. (Bsp. Tmax = ActiveSheet.Range("A" & posmax).Value im nächsten Schritt)
Ich bin sicher die Lösung liegt nahe, wer kann mir helfen?
Vielen Dank im Voraus,
Gast2704
'Letzte Zeile mit Wert bestimmen
Dim LetzteZeile As Integer
LetzteZeile = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
'Maximum bestimmen
Dim maximum As Single
maximum = wsData.Application.Max(Range("F:F"))
'Position von Maximum bestimmen
'_______________var1____________________________________
Dim Zelle As Range
Zelle = ActiveSheet.Columns(6).Find(maximum)
With Zelle
.Select
End With
'_______________var2____________________________________
Dim Bereich
Bereich = wsData.Range("F5:F" & LetzteZeile)
Bereich.Find(Application.Max(Bereich)).Select
Dim posmax As Integer
posmax = ActiveCell.Row
'_______________var3____________________________________
Dim Zeile As Integer
For Zeile = 5 To LetzteZeile
If Cells(Zeile, 6) = "maximum" Then
Cells(Zeile, 6).Select
End If
Next
'_______________var4____________________________________
Dim thisarray() As Variant
thisarray() = Range("F1:F" & LetzteZeile).Value
posmax = WorksheetFunction.Match(maximum, thisarray)
|