Hallo edik,
z.B. mit nachfolgendem Makro.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Max_finden()
Dim myRange As Range
Dim answer
Dim rngFindZelle As Range
Dim strWert As String
Set myRange = Worksheets("Tabelle1").Range("H1:H65000")
answer = Application.WorksheetFunction.Max(myRange)
With ActiveSheet.Columns(8)
Set rngFindZelle = .Find(answer, LookIn:=xlValues)
If Not rngFindZelle Is Nothing Then
strWert = Cells(rngFindZelle.Row, 2)
End If
End With
MsgBox strWert
Set myRange = Nothing
Set rngFindZelle = Nothing
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]