Moin
bekomme in der Zeile range("R4:IV4").Find usw. immer die Fehlermeldung Objektvariable oder Withblockvariable nicht festgelegt.
Nur warum?
In einem Testblatt funktionierte alles Problemlos!
Sheets("Tipp").Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With

If Sheets("Tipp").range("G4") &gt 0 Then
range("R4:IV4").Find(what:=WorksheetFunction.Min(range("R4:IV4")), lookat:=xlWhole).Select
Selection.Offset(-3, -2).Activate
range(ActiveCell.Offset(0, 0), ActiveCell.Offset(450, 8)).Select
Selection.Copy
Else

range("I1:Q450").Select
Selection.Copy

End If
Besten Dank voraus.
Ric