Hallo zusammen
ich habe in einer Tabelle folgende Einträge:
G1-1 G1-2 G1-3 G1-4 2602 2494 2503 2435
G2-1 G2-2 G2-3 G2-4 2475 2390 2449 2471
1 4 6 5
2 7 8 3
mit diesem Code nehme ich die Nummern (1 bis 8) in ein Datenfeld
' notiert die Nummer
Sheets(BlattBezugDatenfeld).Activate
ReDim ArrNr(1 To Anz, 1 To Stä)
For n1 = 1 To Anz
For n2 = 1 To Stä
ArrNr(n1, n2) = _
Range(ZelleBezugDatenfeld).Offset(8 + n1, NrCol - 1 + n2).Value
Next n2
Next n1
Für die Bezeichnungen (G1-1 bis G2-4) und die daneben stehenden Zahlen habe ich jeweils einen separaten analogen Code.
Wie kann man alle Daten in einem Datenfeld aufnehmen?
Gruß
Siegfried