hatte in einem Beitrag schon Hilfe zum Schieben von Kalendermonaten (von SEPP) bekommen:
https://www.herber.de/cgi-bin/callthread.pl?index=1601610#1601610
' **********************************************************************
' Modul: Tabelle4 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Sub scrollMonth()
Dim objShape As Shape
Dim lngMonth As Long, lngFind As Long, varRet As Variant
Set objShape = Me.Shapes(Application.Caller)
With objShape
lngMonth = Clng(.TextFrame.Characters.Text)
lngFind = Application.Max(DateSerial(Year(Range("C1")), lngMonth, 1), Range("C1"))
varRet = Application.Match(lngFind, Rows(5), 0)
If IsNumeric(varRet) Then
ActiveWindow.ScrollColumn = varRet
End If
End With
Set objShape = Nothing
End Sub
Frage:wie müsste man den Code erweitern/umändern, dass auch ein zusätzlicher Button mit dem Tagesdatum geschaffen werden könnte? Also zusätzlich zu den jetzigen funktionierenden 01-12 Monaten auch eine Button, welcher das Kalenderblatt auf Tagesdatum scrollt?
Danke & Gruss,
Juergen