Daten in mehrdimensionales Array
05.01.2017 11:17:29
Max2
durch Nutzer eingaben auf einer Userform erstelle ich ein Datenblatt.
Dieses Datenblatt soll ausgewertet werden und bestimmte Werte sollen dann
in verschiedenen Diagrammen dargestellt werden.
Da Diagramme nur mit einer Range befüllt werden können und nicht durch Variablen muss ich also auf einem extra Blatt nochmal alle selektierten Daten sammeln.
Das klappt für ein paar simple dinge schon gut.
Jetzt möchte ich allerdings nach den Zahlen 1-5 suchen in einer Spalte und dann ein mehrdimensionales Array mit Werten befüllen.
Problem ist dass nicht einmal nach 1-5 gesucht werden muss, sondern x-male,
also muss auch dass Array x-male befüllt werden, wobei die Werte im Array nicht überschrieben werden dürfen sondern ergänzt werden müssen.
Das Array muss dann so aussehen: Array(5, 16).
Könnt ihr mir behilflich sein?
Code Ansatz für Zahlen Suche:
lngZeile = .Range(.Cells(.Rows.Count, 6), .Cells(3, 6)).Find( _
What:="*", LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rng = .Range(.Cells(3, 6), .Cells(lngZeile, 6))
x = 1
For Each c In rng
If c.Value = x Then
End If
If x 6 Then
x = x + 1
Else
x = 1
End If
Next c
Code Ansatz für die Array Werte:
If c.Value = x Then
Col = c.Column
Row = c.Row
Set rngA = .Range(.Cells(Row, Col + 1), .Cells(Row, Col + 17))
For Each r In rngA
If IsNumeric(r.Value) Then
End If
Next r
End If
Wenn ihr mehr Code, Erklärung oder eine Beispiel Datei wollt/braucht, dann gebt bescheid