Array abhängig von Spaltenüberschriften erstellen

Spaltenüberschriften · 2008-06-17T17:57:00+00:00

Hallo zusammen, ich stehe vor einem - für mich - unlösbaren Problem. Ich habe eine Tabelle mit 25 Spalten und 40 Zeilen. Nun möchte ich jede dieser Spalten mit den Werten der Zeilen in ein eigenes Array einlesen, welches den Namen der Spaltenüberschrift trägt. In den Zellen stehen NUR Zahlen. Sinn der Sache ist, dass die Spalten evtl. verschoben werden. Das also die Spalte mit der Überschrift "Krit1" nicht mehr in Spalte A steht, sondern in Spalte C. Dann soll ein Code durchlaufen, der die Spaltenüberschriften mit den Arraynamen vergleicht, findet sich eine Übereinstimmung, sollen die Daten des Array in die Zeilen unter dem jeweiliegen Spaltennamen geschrieben werden. Ich danke Euch herzlich für Eure Mühe! Jonathan

Hey Chris,
also:
in einer UF werde durch eine ListBox 1-25 Werte ausgewählt, welche dann nebeneinander in die Tabelle geschrieben werden. Diese sind dann die Spaltenüberschriften.
An späterer Stelle werden - auch via UF - Daten in die Zellen der Spaltenüberschriften hinzugefügt, so dass danach eine vollständige Tabelle erstellt wurde. Wenn nun aber nach Einagabe aller Daten auffällt, dass eigentlich eine Spalte mehr hätte gewählt werden sollen und wählt man diese nun in der Listbox aus, werden ja alle Spaltenüberschriften neu geschrieben. so kann es dann vorkommen, dass die Überschrift 1 nicht mehr an erster Stelle, sondern an zweiter Stelle steht. Die Daten, welche in der Spalte stehen, bleiben aber dort und werden dann nachher einer anderen Überschrift zugeordnet. Das geht natürlich nicht.
Daher dachte ich mir, ich könnte die ganzen Daten in ein Array einlesen und nach Neuvergabe der Spaltenüberschriften diesen dann zuordnen. So sind alle Daten wieder da, wo sie sein sollten.
Ich hoffe, es etwas verständlich erklärt zu haben?!
Jonathan

Naja,
wenn schon Daten eingegeben wurden.
Option Explicit
Dim ArrayKrit1(39) As Variant ' 40 Zeilen incl. Überschrift


Sub ArrayEinlesen ()
Dim i as Long
For i = LBound(ArrayKrit1()) To UBound(ArrayKrit1())
ArrayKrit(i) = Cells(i + 1, 1) ' i+1, weil der Array bei 0 anfängt
Next i
End Sub


Sub ArrayAuslesen ()
Dim z As Long, k as Long
For z = 1 to 25 ' Spalten durchlaufen
If ArrayKrit1(0) = Cells(1, z) Then ' wenn Überschrift = erstes Element des Arrays(alte  _
Überschrift)
For k =Lbound(ArrayKrit1()) to UBound(ArrayKrit1())  ' dann schreibe Werte in diese  _
Spalte zurück
Cells(k+1, z) = ArrayKrit1(k)
Next k
Exit For
End if
Next z
End Sub

Vllt. hilfts. Für 25 Spalten musst du allerdings 25 Arrays definieren bzw. einen großen Array.
z.B. Dim ArrayX(1 to 40, 1 to 25) würde auch gehen. Dann hast du allerdings eine Doppelschleife. Als ich würde das Einfügen der neuen Spalten anders machen. Evtl ein Button " Was vergessen? und dann einfach das selektierte entweder hinten anhängen oder dazwischen einfügen.
Gruß
chris

Array abhängig von Spaltenüberschriften erstellen

Forumthread: Array abhängig von Spaltenüberschriften erstellen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial