ich habe eine Tabelle in der alle Tage untereinander stehen. Also 01.01.2010 bis 31.12.2010. Die Tage habe ich immer mit +1 nach unten ausgefüllt.
Nun möchte ich, dass über ein Command Button immer zum heutigen Tage gesprungen werden kann.
Dazu habe ich hier im forum folgendes gefunden:
Private Sub CommandButton1_Click()
Dim C As Range, Ws As Worksheet, bolFound As Boolean
On Error Resume Next
CommandButton1.TakeFocusOnClick = False
For Each Ws In Worksheets
With Ws.Cells
Set C = .Find(Date, LookIn:=xlFormulas)
If Not C Is Nothing Then
Ws.Select
C.Select
bolFound = True
Exit Sub
End If
End With
Next
If Not bolFound Then
MsgBox "Datum wurde nicht gefunden!" & Space(10), 64, "gebe bekannt..."
End If
End Sub
Thema ist hier nur, dass er das Datum nicht findet wenn es das Ergebnis einer Formel ist!
Gleichzeitig habe ich in der Tabelle ein Diagramm, dass immer neben dem heutigen Datum stehen soll.
kann mir hier jemand helfen?!
Vielen Dank im Voraus!
Viele Grüße aus Viersen
Michael Hummel