Array auslesen
02.10.2006 13:33:28
Sebastian
hoffe auf Hilfe aus diesem super Forum. Ich habe ein Problem mit einem Array. Und zwar geht es darum ein mehrdimensionales Array wieder auszulesen und in ein Tabellenblatt zu schreiben. Also ich fülle ein Array und möchte es dann in ein anderes Tabellenblatt schreiben. Kann mir jemand dabei helfen. Danke. Im Ganzen geht es darum verschiedene Bereiche aus anderen Excelfiles in einer Datei zusammenzuführen.
Grüße Sebastian.
Hier mal mein Code zum einlesen des Array:
Sub Files_Kopieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sFile As String
Dim wkb1 As Workbook, wkb2 As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Dim arrNomi As Variant
Dim i As Integer, c As Integer, r As Integer
Dim RowCnt As Integer, ColCnt As Integer
Set wkb1 = ThisWorkbook
Set wks1 = Sheets(1)
For i = 16 To Cells(Rows.Count, 17).End(xlUp).Row
sFile = wks1.Cells(i, 17)
Workbooks.Open sFile
Set wbk2 = Workbooks(sFile)
Set wks2 = WB2.Worksheets("Consolidation")
'Set wks = wks1.Cells(i, 3)
With wks2.Range("Nomi_List_Consolidation")
RowCnt = .Rows.Count
ColCnt = .Columns.Count
End With
Debug.Print RowCnt
Debug.Print ColCnt
ReDim arrNomi(1 To RowCnt, 1 To ColCnt)
For r = 1 To RowCnt
For c = 1 To ColCnt
arrNomi(r, c) = wks2.Range("Nomi_List_Consolidation")(r, c)
Debug.Print arrNomi(r, c)
Next c
Next r
'Daten in wbk schreiben.
wkb2.Close False
sFile = Dir()
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub