zum Tagesdatum-1 bzw. -2 springen
05.07.2008 00:39:44
Walter
ich habe nachfolgendes Makro erfolgreich in Anwendung, welches beim oeffnen der Datei den Cursor zum Tagesdatum in der bestimmten Spalte springen läßt. Da in der Datei nur Daten Mo-Fr, also ohne Wochenende angegeben sind, springt am Wochende der Cursor zum Blattanfang, soll aber dann alternativ zum gestrigen bzw. vorgestrigen Datum springen.
Wer weiß Rat ?
Danke + Gruß
Walter
Private Sub Workbook_Open()
Dim c As Range, ber As Range
Set ber = [b1:b300]
Application.ScreenUpdating = False
For Each c In ber
If c.Value = Date Then
c.Select
Exit For
Else
[b150].Select
End If
Next
Application.ScreenUpdating = True
End Sub