Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten in zweidimensionales Array ein- und in Tabelle auslesen

Gruppe

Variable

Problem

Die Wochentage und Datumswerte eines Monats sollen zuerst in ein zweidimensionales Array eingelesen und dann in die Tabelle eingetragen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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