VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eintrag der aktuellen Kalenderwoche über ShortCut

Gruppe

DatumZeit

Bereich

Kalenderwoche

Thema

Eintrag der aktuellen Kalenderwoche über ShortCut

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