Gruppe
DatumZeit
Problem
Wie kann ich veranlassen, daß eine Tabelle sich beim Öffnen der Arbeitsmappe immer an die auf das aktuelle Datum folgende Kaldenderwoche anpaßt?
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