none
Excel 2003 - Tablettenblätter - Farblich vom Datum abhängig RRS feed

  • Frage

  • Hallo,

    kann ich eine Excel2003.XLS Datei,
    die mehrere Tablettenblätter beinhaltet so öffnen,
    dass automatisch die aktuelle KW Woche angezeigt wird
    und farblich hervorgehoben.

    Wenn ja, was ist zu tun?

    Grüße Andy

    rrr

    Mittwoch, 27. Februar 2013 18:46

Antworten

  • Jupp, geht.

    Kopiere den Code in "DieseArbeitsmappe".

    Andreas.

    Private Sub Workbook_Open()
      Dim WS As Worksheet
      For Each WS In Worksheets
        WS.Tab.ColorIndex = xlColorIndexNone
      Next
      On Error Resume Next
      Set WS = Worksheets("KW " & KW(Date))
      On Error GoTo 0
      If WS Is Nothing Then Exit Sub
      With WS
        .Select
        .Tab.ColorIndex = 5
      End With
    End Sub

    Private Function KW(ByVal Datum As Date) As Integer
      'Liefert die Kalenderwoche für Datum
      KW = (Datum - Weekday(Datum, vbMonday) + 11 - _
        DateSerial(Year(Datum + 4 - Weekday(Datum, vbMonday)), 1, 1)) \ 7
    End Function


    • Als Antwort markiert Andy Bauer Samstag, 2. März 2013 18:55
    Freitag, 1. März 2013 17:52