Dim LetzteZeile As Integer
LetzteZeile = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
Dim maximum As Single
maximum = wsData.Application.Max(Range("F:F"))
Dim Zelle As Range
Zelle = ActiveSheet.Columns(6).Find(maximum)
With Zelle
.Select
End With
Dim Bereich
Bereich = wsData.Range("F5:F" & LetzteZeile)
Bereich.Find(Application.Max(Bereich)).Select
Dim posmax As Integer
posmax = ActiveCell.Row
Dim Zeile As Integer
For Zeile = 5 To LetzteZeile
If Cells(Zeile, 6) = "maximum" Then
Cells(Zeile, 6).Select
End If
Next
Dim thisarray() As Variant
thisarray() = Range("F1:F" & LetzteZeile).Value
posmax = WorksheetFunction.Match(maximum, thisarray)