Array in Tabelle schreiben ... neues Problem :-(

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Rudi,
hier der Code:


Sub konvertiereStundenZu5Minuten()
'   Deklarationen
Dim lngLoop                         As Long
Dim lngLoop2                        As Long
Dim varaStundenwerte()              As Variant
Dim vara5Minutenwerte(105120)       As Variant
Dim lngCounter                      As Long
'   Zielbereich leeren
wks5Minutengang.Range("L13:L1048576").ClearContents
'   Werte aus der Tabelle lesen
varaStundenwerte = wksStundengang.Range("O15:O8774").Value
'   Werte verarbeiten (ver-12-fachen)
lngCounter = 0
For lngLoop = LBound(varaStundenwerte) To UBound(varaStundenwerte)
For lngLoop2 = 1 To 12
lngCounter = lngCounter + 1
vara5Minutenwerte(lngCounter) = varaStundenwerte(lngLoop, 1)
Next lngLoop2
Next lngLoop
'   Werte in Tabelle schreiben
wks5Minutengang.Range("L13:L105132") = Application.Transpose(vara5Minutenwerte)
End Sub

Bei 39000 Datensätzen läuft er richtig, bei den hier eingestellten gut 100.000 Datensätzen sind dann die letzten ca. 60.000 Zellen mit #NV gefüllt.
Danke für Deine Zeit
Gruß
Peter

Hi
Wenn ich dich erinnern darf, gestern schrieb dir Rudi folgende Zusatzinformation zur Funktion Transpose:
Geht aber nur bis ca. 65.000 Datensätze.
Dh wenn du ein eindimensionalen Array in das Tabellenblatt zurückschreiben willst, musst du das Transpose selber programmieren.
Dh du erstellt ein gleich grosses 2-d-Array und überträgst dann per Schleife die Daten vom 1-d ins 2-d-Array, und schreibst dann das 2-d-Array zurück.
Ist kein Problem, die Schleife ist schnell, sogar schneller als die Transpose-Funktion.
Die Alternative wäre, dass du das Array gleich als 2-d-Array anlegst.
Dim vara5Minutenwerte(105120, 1)
Dann brauchst du nicht mehr transponieren, musst halt aber immer das ",1" im Index mit angeben.
Gruß Daniel

Sub konvertiereStundenZu5Minuten() ' Deklarationen Dim lngLoop As Long Dim lngLoop2 As Long Dim varaStundenwerte() As Variant Dim vara5Minutenwerte() As Variant Dim lngCounter As Long ' Zielbereich leeren wks5Minutengang.Range("L13:L1048576").ClearContents ' Werte aus der Tabelle lesen varaStundenwerte = wksStundengang.Range("O15:O8774").Value ReDim vara5Minutenwerte(1 To UBound(varaStundenwerte) * 12, 1 To 1) ' Werte verarbeiten (ver-12-fachen) lngCounter = 0 For lngLoop = LBound(varaStundenwerte) To UBound(varaStundenwerte) For lngLoop2 = 1 To 12 lngCounter = lngCounter + 1 vara5Minutenwerte(lngCounter, 1) = varaStundenwerte(lngLoop, 1) Next lngLoop2 Next lngLoop ' Werte in Tabelle schreiben wks5Minutengang.Range("L13").Resize(UBound(vara5Minutenwerte)) = vara5Minutenwerte End Sub

Beliebteste Forumthreads (12 Monate)

Array in Tabelle schreiben ... neues Problem :-(

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array in Tabelle schreiben ... neues Problem :-(

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread