Hallo zusammen,
stehe vor einem Problem und komme einfach nicht weiter.
Muss aber erwähnen, das ich nur über Basiswissen was VBA Programmierung angeht verfüge.
Meine aufgabe sieht woie folgt aus:
Es existiert ein Excelsheet mit Eintragungen von Projekten, Prüfungen, Artikeln und Bemerkungen.
(Habe es beigefügt)
Im Excelsheet unter Userform1 findet ihr, die von mir angefangenen Code.
Ich scheiter an der dynamischen erweiterung des arrays.
Der Bereich kann dabei variieren.
folgendes möchte ich realisieren:
1. Suche in alle Zellen nach Projektnummern (Anordnung P gefolgt von fünf zahlen oder IA gefolgt von 8 Zahlen)
Wenn mehrere Nummern nebeneinander als Zeichenfolge vorhanden sind soll dies gesplittet und einzeln betrachtet werden.
2. Sobald es gefunden wurde soll der Zellinhalt (gegebenenfalls gesplittet) und der Zellinhalt eine Zeile
darunter (Prüfungen) sowie die entsprechende Zeile und Spalte in ein Array geschrieben werden.
Das Array muss dabei variabel sein, da sich die Anzahl der Projekte ändern kann.
Das Array würde dan 2 dimensional sein mit variablen Zeilen und 3 Reihen
Im dem array sollen alle identischen Projektnummern mit identischen Prüfungen zusammengefasst und die Zellposition entsprechend erweitert werden.
3. Das so gebildete Array soll in eine Listbox übertragen werden.
z.B. für die Zelle G5 soll es wie folgt aussehen:
P60109 Prüfung1 G5
P60110 Prüfung1 G5
P60111 Prüfung1 G5
P60112 Prüfung1 G5
für die Zelle BH:
P60057 Prüfung2 BH5
Zu Punkt 3 zusammenfassung von identischen Projektnummern mit identischen Prüfungen
z.B. für die Zellen gleichen Projektnummern und gleichen Prüfungen aus der Tabelle
P60109 Prüfung1 G5
P60110 Prüfung1 G5
P60111 Prüfung1 G5
P60112 Prüfung1 G5
P60109 Prüfung1 N5
P60110 Prüfung1 N5
P60111 Prüfung1 N5
P60112 Prüfung1 N5
P60109 Prüfung1 U5
P60110 Prüfung1 U5
P60111 Prüfung1 U5
P60112 Prüfung1 U5
...
soll es im array wie folgt zusammengefast werden un in die Listbox übertragen werden.
P60109 Prüfung1 G5,N5,U5...
P60110 Prüfung1 G5,N5,U5...
P60111 Prüfung1 G5,N5,U5...
P60112 Prüfung1 G5,N5,U5...
Hoffe das ist einigermaßen verständlich rübergekommen.
Bedanke mich bei allen und hoffe auf Unterstützung.