aktuelles Datum
16.05.2013 12:53:55
Manfred
mit u.g. Code den ich von Hary habe zeigt mir Excel das aktuelle Datum im Kalender an welcher sich in Zeile 4 befindet. Ausgenommen die Feiertage.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Feiertage" Then ' alle Blaetter ausser Feiertage
Cells(4, Application.Match(CLng(Date), Rows(4), 0)).Select
End If
End Sub
Ist es möglich weitere Blätter auszuschließen ? Mit Komma oder Semikolon funzt das nicht. (Feiertage, Blatt1, Blatt2, Blatt3).
Oder habe ich einen Denkfehler ?
Mit freundlichen Grüßen
Manfred
Anzeige