Thema: Eintrag der aktuellen Kalenderwoche über ShortCut

StandardModule: Modul1

Function KW()
   With WorksheetFunction
   KW = CInt((Date - .Weekday(Date, 2) - DateSerial(Year(Date + 4 - .Weekday(Date, 2)), 1, -10)) / 7)
   End With
End Function

Sub InsertKW()
   ActiveCell.Value = KW
End Sub
StandardModule: Modul2

Sub Makro2()

 Makro2 Makro
 Makro am 02.10.2003 von Hans W. Herber aufgezeichnet



    ActiveSheet.Paste
End Sub
Sub Makro3()

 Makro3 Makro
 Makro am 02.10.2003 von Hans W. Herber aufgezeichnet



    ActiveSheet.Paste
End Sub
Sub Makro4()

 Makro4 Makro
 Makro am 02.10.2003 von Hans W. Herber aufgezeichnet



    Range("E21").Select
    ActiveCell.FormulaR1C1 = _
        "=TRUNC((R[-19]C[-4]-WEEKDAY(R[-19]C[-4],2)-DATE(YEAR(R[-19]C[-4]+4-WEEKDAY(R[-19]C[-4],2)),1,-10))/7)"
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Kalenderwoche