wo muss ich diesen Code einfuegen, damit er funktioniert? doch in kein modul oder?
Private Sub Open_workbook()
Const Blattname = "Overview"
Dim z As Range
With Sheets(Blattname)
.Activate
Set z = .Range("a:a").Find(What:="=Tue", LookIn:=xlFormulas)
If Not z Is Nothing Then z.Activate
End With
End Sub