zweidimensionales Array
06.04.2020 10:13:25
Simon
ich habe bei folgender Idee Schwierigkeiten:
In einem Tabellenblatt habe ich eine Skala mit Werten. Diese Werte schreibe ich in ein eindimensionales Array.
Hinter jedem dieser Werte steckt allerdings auch eine Farbe, die ich gerne mit in das Array schreiben würde, nur fehlt mir gerade die nötige Kenntnis dazu, das umzusetzen. Vielleicht habt ihr ja eine Idee dazu.
In dem Code seht ihr zumindest schon die Deklaration die ich gerne dafür verwenden würde.
Vielen Dank im Voraus
Simon Klein
Sub Test()
Dim arrSkala()
Dim arrSize As Integer
Dim arrFarbe As String
Dim ws As Worksheet
Dim i, j As Integer
j = 7
Set ws = Worksheets("West")
arrSize = Application.WorksheetFunction.CountA(ws.range("G7:K7"))
ReDim arrSkala(arrSize, arrFarbe)
For i = 0 To arrSize
arrSkala(i) = ws.Cells(7, j)
j = j + 1
Next i
End Sub