Wie VBA dynamischen Arrays in Microsoft Excel erstellen
Frage:
Die Wochentage und Daten eines Monats sind in einem zweidimensionalen Array zu öffnen und dann in das Blatt
einzufügen === Antwort:
Fügen Sie den folgenden Code in das Standardmodul ein.
Sub dayarray() Dim arrDay(1 To 31, 1 To 2) As Variant Dim intCounter As Integer For intCounter = 1 To 31 arrDay(intCounter, 2) = DateSerial(Year(Date), 12, intCounter) arrDay(intCounter, 1) = Format(arrDay(intCounter, 2), "dddd") Next intCounter Range("A1:B31").Value = arrDay End Sub