Array abhängig von Spaltenüberschriften erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Array abhängig von Spaltenüberschriften erstellen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array abhängig von Spaltenüberschriften erstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread