VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabelle mit der jeweils nächsten Kalenderwoche öffnen

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

    


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