Ich habe mit Hilfe der Recherche folgenden funktionierenden Code hinbekommen. Jetzt bin ich jedoch an meine Grenze gestossen und komme nicht weiter.
Kann mir hier bitte jemand dabei helfen, den Code so anzupassen, dass wenn ich in die Tabelle2 ("Laufendes Jahr") wechsle, folgender Code ausgeführt wird?
Sub MonthSprung_Vergleich()
Dim rngMonth As Range
Set rngMonth = Worksheets("LaufendesJahr").Range("P:P").Find(CDate(DateSerial(Year(Date), Month(Date), 1)), _
LookIn:=xlValues, lookat:=xlWhole)
If Not rngMonth Is Nothing Then
Application.Goto rngMonth.Offset(-2, -15), True
rngMonth.Activate
End If
End Sub
Habe diesen Code in "DieseArbeitsmappe" reingehackt.
tausend Dank im voraus für eure Unterstützung
Gruss, Glen