zum heutigen Tag springen
04.07.2018 12:18:05
Sandra.B
Ich benötige mal wieder Eure Fachkenntnisse :)
mir folgendem funktionierenden Code springe ich zum heutigen Datum:
Sub DatumFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("E6:NE300")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Sub
End If
End If
Next
End Sub
Soweit so gut. Wie kann ich es nun umsetzen, das die Spalte mit dem aktuellen Datum immer direkt rechts neben den ersten vier fixierten Spalten angezeigt wird?
Mit meinem Code springt es immer zur Bildschirmmitte.
Vielen Dank im Vorraus
Gruß Sandra