Hallo noch mal,
Nepumuk hat meine Antwort anscheinend noch nicht gelesen. Muss morgen eine Lösung vorlegen können. Bin für jede Hilfestellung dankbar!
Roberto
Also nach:
Dim dmax As Double
Dim rng As Range
Sheets("ablage2").Select
dmax = WorksheetFunction.Max(Range("D9,G9,M9,P9"))
Set rng = Range("D9,G9,M9,P9").Find(What:=dmax, LookIn:=xlValues, LookAt _
:=xlWhole)
MsgBox dmax' dient zur Kontrolle ob der Max Wert gefunden wurde
Range(rng.Address).Offset(-5, 0).Select' Lösung Nepumuk
erscheint bei mir dann die Fehlermeldeung "Objektvariable oder With-Blockvariable nicht festgelegt (Fehler 91)"