2D-Array in Range kopieren

Hallo zusammen
ich habe eine Tabelle mit etwas über 18'000Zeilen und 40Spalten. Um diese zu bearbeiten, habe ich sie in ein Array kopiert und das funktioniert auch Anstandslos. Nach getaner Arbeit, soll das Array (natürlich) wieder zurück in die Excel geschrieben werden. Hier fängt das Problem an. Ich bekomme hier immer einen Fehler 1004.
Mein Vorgehen ist, das Array mit einem Befehl, so sollte es angeblich möglich sein, wieder in Excel zu übertragen:
Bsp.: Range(A1, AU18125) = arr_owssvr
'Array kopieren
tempString = "A2:" & Sit(TabellenGroesseX) & TabellenGroesseY
arr_owssvr = Range(tempString)
...Do stuff
'Array zurückschreiben
tempString = "A2:" & Sit(TabellenGroesseX) & TabellenGroesseY
Range(tempString).Value = arr_owssvr
Kann mir jemand sagen, warum dies nicht funktioniert?
Ist es möglich, dass die Tabelle/das Array einfach zu gross dafür ist?
Ich habe mit dem Code ein wenig herumgespielt und dabei hatte ich einmal das Ergebnis, dass ca. 3000 Zeilen übertragen wurden und danach dann der Fehler 1004 kam.
Zeilenweise das Array in Excel zurückschreiben funktioniert zwar, aber ist unendlich langsam...
Gruss
Tri

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim arr_owssvr As Variant, arr_owssvrItem As Variant TabellenGroesseX = Cells(1, Columns.Count).End(xlToLeft).Column TabellenGroesseY = Cells(Rows.Count, 1).End(xlUp).Row 'Array kopieren tempString = "A2:" & Sit(TabellenGroesseX) & TabellenGroesseY arr_owssvr = Range(tempString) 'Array bearbeiten 'Array wieder zurückschreiben. tempString = "A2:" & Sit(TabellenGroesseX) & TabellenGroesseY Range(tempString).Value = arr_owssvr 'Test 'For i = LBound(arr_owssvr, 1) To UBound(arr_owssvr, 1) ' For j = 1 To TabellenGroesseX ' Cells(i, j) = arr_owssvr(i, j) ' Next j 'Next i

Hmm...
eigentlich, solang es keine Änderungen an TabellengrösseX und Y gibt, sollte es kein Problem geben.
Hast Du besondere Formatierung im Blatt? u.a. Gruppierte Zellen?
Ich komme nicht drauf. Einige Tipps, um die Suche zu helfen:
_ setze die Variabledeklaration als erforderlich ("Extras", "Optionen"). Mag lästig wirken, ist aber Profi-Tipp.
_ Manche Variable habe nicht sprechenden Namen "tempString", andere "übersprechende" Namen "TabellenGroesseX". Lieber überall gleich sprechend
_ Lass in Schritt-Modus beim offene Lokalfenster ("Ansicht", "Lokalfenster"), da siehst Du die Variablen-Zustände
_ Überwachungsausdruck bei Bedarf verwenden
_ Debug.Print, um Zwischenstände festzuhalten (drückt was im Direktfenster raus, Strg+g oder Ansicht Direktfenster):


Dim arr_owssvr As Variant
Dim arr_owssvrItem As Variant
Dim Adresse As String
Dim Tab_X As Long
Dim Tab_Y As Long
Tab_X = Cells(1, Columns.Count).End(xlToLeft).Column
Tab_Y = Cells(Rows.Count, 1).End(xlUp).Row
'Array kopieren
Adresse = "A2:" & Sit(Tab_X) & Tab_Y
Debug.Print Adresse, Tab_X, Sit(Tab_X), Tab_Y
arr_owssvr = Range(Adresse)
'Array bearbeiten
'Array wieder zurückschreiben.
Adresse = "A2:" & Sit(Tab_X) & Tab_Y
Debug.Print Adresse, Tab_X, Sit(Tab_X), Tab_Y
Range(Adresse).Value = arr_owssvr

VG
Yal

Sub aaa() Dim x, i, j Dim t Dim a Application.ScreenUpdating = False t = Timer For i = 1 To 18000 For j = 1 To 47 x = Cells(i, j) Next Next Debug.Print Timer - t t = Timer a = Range(Cells(1, 1), Cells(18000, 47)) For i = 1 To 18000 For j = 1 To 47 x = a(i, j) Next Next Debug.Print Timer - t End Su

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2D-Array in Range kopieren

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread