Beim öffnen zur Aktuellen KW
19.09.2006 08:44:48
Heinz H
Habe unteren Code der beim wechseln in das Tab.Blatt zur aktuellen KW springt.
Könnte man diesen Code so abändern das beim öffnen der Datei in die aktuelle KW+1 springt.
Also heute ist KW 38, Beim öffnen sollte KW39 am Bildschirm erscheinen.
Könnte mir da bitte jemand weiterhelfen ??
Gruss, Heinz
Habe in "Diese Arbeitsmappe"
Option Explicit
Private Sub Workbook_Open()
Worksheets("WoMat").Select
End Sub
Code im Tab.Blatt "WoMat"
Private Sub Worksheet_Activate()
Dim rng As Range
Dim iCounter As Integer
Set rng = Range("A:A").Find(Date, LookAt:=xlWhole)
If Not rng Is Nothing Then
iCounter = 0
Do Until rng.Offset(iCounter, 1).Value = "Kalenderwoche"
iCounter = iCounter - 1
Loop
End If
ActiveWindow.ScrollRow = rng.Row + iCounter
Set rng = Nothing
End Sub