VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Daten in zweidimensionales Array ein- und in Tabelle auslesen

Gruppe

Allgemein

Bereich

Variable

Thema

Daten in zweidimensionales Array ein- und in Tabelle auslesen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Variable