Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eintrag der aktuellen Kalenderwoche über ShortCut

Gruppe

Kalenderwoche

Problem

Mit dem ShortCut Strg+k soll in die aktive Zelle die aktuelle Kalenderwochen nach DIN 1355 eingetragen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn dem ShortCut zu.

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