Fehler beim Kopieren via Datenfeld
Philipp
ich versuche gerade mich mit Arrays. Ich habe ein Mappe mit drei Blättern. Blatt 2 enthält eine Tabelle mit beliebig vielen Spalten und Zeilen (ca 5 Spalten und 500 Zeilen). Ich möchte nun diese Tabelle in ein Datenfeld speichern. Dies gelingt mir auch ohne Probleme.
Will ich jedoch nach der gleichen Methode im Blatt 3 das Datenfeld einfügen, kommt es immer zum Laufzeitfehler 1004 (Die Methode Range für das Objekt _Worksheet ist fehlgeschlagen). Ich habe mich bei dem Beispiel an die Anleitung von Peter Hasserod Seite gehalten:
http://www.online-excel.de/excel/singsel_vba.php?f=47
Hier mein Code:
Sub KopierBereichViaArray()
Dim fArray()
Dim oOSheet2 As Worksheet
Dim oCSheet3 As Worksheet
Set oOSheet2 = ThisWorkbook.Sheets("Sheet2")
Set oCSheet3 = ThisWorkbook.Sheets("Sheet3")
ReDim fArray(1 To oOSheet2.UsedRange.Rows.Count, 1 To oOSheet2.UsedRange.Columns.Count)
fArray = oOSheet2.Range(oOSheet2.Cells(1, 1), oOSheet2.Cells(oOSheet2.UsedRange.Rows.Count, _
oOSheet2.UsedRange.Columns.Count)).Value
oCSheet3.Range(Cells(LBound(fArray, 1), LBound(fArray, 2)), _
Cells(UBound(fArray, 1), UBound(fArray, 2))) = fArray
End Sub
Vielen Dank für Eure Hilfe im Voraus,
Gruß Philipp
Anzeige