Gruppe
DatumZeit
Bereich
Kalenderwoche
Thema
Tabelle mit der jeweils nächsten Kalenderwoche öffnen
Problem
Wie kann ich veranlassen, daß eine Tabelle sich beim Öffnen der Arbeitsmappe immer an die auf das aktuelle Datum folgende Kaldenderwoche anpaßt?
Lösung
Formel für die aktuelle Kalenderwoche: =KÜRZEN((C11-WOCHENTAG(C11;2)-DATUM(JAHR(C11+4-WOCHENTAG(C11;2));1;-10))/7)
StandardModule: Modul1
Sub DialogAufruf()
frmSpreadSheet.Show
End Sub
ClassModule: frmSpreadSheet
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range
Dim iRow As Integer, iCol As Integer
Set rng = Range("A1").CurrentRegion
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
Spreadsheet1.Cells(iRow, iCol).Value = rng.Cells(iRow, iCol).Value
Next iCol
Next iRow
End Sub