Frage zu VBA-Arrays
22.04.2008 15:50:42
Boris
hier mein Code (dieser ist stark gekürzt). Dieser soll zunächst die 3 Arrays arrOrdner, arrDatei und arrSheet befüllen, und das mit den Werten, die im Arbeitsblatt "Global" in einer Tabelle angegeben sind: Im untenstehenden Bespiel sind die Längen der Arrays mit der Konstanten intSheetanzahl = 2 fest definiert.
Ich möchte nun jedoch erreichen, dass die intSheetanzahl ebenfalls aus dem Arbeitsblatt "Global" ausgelesen wird. (Dort steht dann in Zelle(x,y) die Anzahl). Jetzt stehe ich jedoch vor folgendem Problem: Die arrays erwarten eine Konstante, und eine Konstante kann ich nicht per cell().value zuordnen. Wie macht man das also?
Sub Update()
Const intSheetanzahl As Integer = 2
Dim arrOrdner(1 To intSheetanzahl) As String
Dim arrDatei(1 To intSheetanzahl) As String
Dim arrSheet(1 To intSheetanzahl) As String
Dim wsGlobal As Worksheet
Set wsGlobal = ThisWorkbook.Worksheets("Global")
For i = 1 To intSheetanzahl
arrOrdner(i) = wsGlobal.Cells(3 + i, 2).Value
arrDatei(i) = wsGlobal.Cells(3 + i, 3).Value
arrSheet(i) = wsGlobal.Cells(3 + i, 4).Value
Next i
End Sub
Gruß, Boris