Zu einer bestimmten Kalenderwoche springen

04/09/2007 - 09:40 von HerbLehmann | Report spam
Hallo,
ich möchte in einer Jahresliste für die Eingabe zu 'diese Kalenderwoche'
springen können und möchte dafür einen Schalter programmieren.
Wie muß ich das machen?

Herb
 

Lesen sie die antworten

#1 Claus Busch
04/09/2007 - 13:15 | Warnen spam
Hallo Herb,

Am Tue, 4 Sep 2007 00:40:02 -0700 schrieb HerbLehmann:

ich möchte in einer Jahresliste für die Eingabe zu 'diese Kalenderwoche'
springen können und möchte dafür einen Schalter programmieren.
Wie muß ich das machen?



probiers mal so im Codemodul des entsprechenden Arbeitsblattes:
Private Sub Worksheet_Activate()

Dim KW As Integer
Dim lngZeile As Long

KW = (4 + Date - Weekday(Date, 2) - _
DateSerial(Year(4 + Date - Weekday(Date, 2)), 1, -6)) / 7

'Hier deine Spalte mit der Kalenderwoche anpassen
lngZeile = WorksheetFunction.Match(KW, Range("B:B"), 0)
ActiveWindow.ScrollRow = lngZeile

End Sub

Pass noch die Spalte an, in der deine Kalenderwoche steht.

Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen