ARRAY in Excel-Blatt schreiben



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: ARRAY in Excel-Blatt schreiben
von: Stefan
Geschrieben am: 21.05.2002 - 17:55:05

Hallo,

gibt es eine einfache Möglichkeit, den Inhalt eines kompletten Arrays in ein Excel-Sheet zu schreiben und einfach nur die linke obere Ecke, aber der das einfügen passieren soll, anzugeben?

Eine Lösung wäre echt super!

Gruss
Stefan


nach oben   nach unten

Re: ARRAY in Excel-Blatt schreiben
von: Rolf, Lgh.
Geschrieben am: 21.05.2002 - 20:34:53

Hallo Stefan,
mein Beispiel:

Option Explicit

Sub dayarray()
  Dim arrDay(1 To 31, 1 To 3) As Variant
  Dim intCounter As Integer
  Dim As Integer
  Dim As Integer
  'Erzeugen des Arrays
  For intCounter = 1 To 31
    arrDay(intCounter, 2) = Format(DateSerial(Year(Date), _
                                   Month(Date), intCounter), _
                                   "dd.mm.yyyy")
    arrDay(intCounter, 1) = Format(arrDay(intCounter, 2), "dddd")
    arrDay(intCounter, 3) = Format(arrDay(intCounter, 2), "ddd")
  Next intCounter
  'in die Tabelle schreiben
  With ThisWorkbook.Worksheets("Tabelle1")
    For l = LBound(arrDay, 1) To UBound(arrDay, 1)
      For m = LBound(arrDay, 2) To UBound(arrDay, 2)
        Cells(l, m) = arrDay(l, m)
      Next m
    Next l
  End With
End Sub


Gruss Rolf
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ARRAY in Excel-Blatt schreiben"