AW: Scrollrow bei Office 200
04.12.2007 15:19:50
Oswald
Hallo Renee,
Code sieht so aus:
Private Sub Workbook_Open() 'Ansicht des Tabellenblatts Planung auf die aktuelle KW stellen
Application.ScreenUpdating = False
Sheets("Planung").ScrollArea = "A1:GU368"
If Sheets("Planung").Range("A1").Value DatePart("yyyy", Date) Then GoTo Ende1
ActiveWindow.ScrollRow = 3
Dim Kalenderwoche As Date
Dim Jahr As Integer
Dim Datum1 As Date
Jahr = Right(Date, 4)
If Jahr Sheets("Planung").Range("A1").Value Then Exit Sub
Datum1 = Date
Dim Zeile As Integer
Kalenderwoche = DatePart("ww", Datum1)
Sheets("Planung").Activate
Range("B3:B368").Select
For Each Zelle In Selection
If Zelle.Value = Kalenderwoche Then Zelle.Select
If Zelle.Value = Kalenderwoche Then Zeile = ActiveCell.Row
If Zelle.Value = Kalenderwoche Then GoTo nextStep
Next Zelle
nextStep:
Range("B3").Select
ActiveWindow.ScrollRow = Zeile - 3
Ende1:
Application.ScreenUpdating = True
End Sub
Kommt kein Fehler , es wird nur nicht auf die richtige Zeile gesprungen.
Gespeichert ist es unter "Diese Arbeitsmappe".
Gruß
Oswald