Gruppe
Allgemein
Problem
Die Wochentage und Datumswerte eines Monats sollen zuerst in ein zweidimensionales Array eingelesen und dann in die Tabelle eingetragen werden.
StandardModule: basMain
Sub DayArray()
Dim arr(1 To 31, 1 To 2) As Variant
Dim iCounter As Integer
For iCounter = 1 To 31
arr(iCounter, 2) = DateSerial(Year(Date), 12, iCounter)
arr(iCounter, 1) = Format(arr(iCounter, 2), "dddd")
Next iCounter
For iCounter = 1 To 31
Cells(iCounter, 1) = arr(iCounter, 1)
Cells(iCounter, 2) = arr(iCounter, 2)
Next iCounter
End Sub