Also Grundlage: VBA-Programm mit einer Userform in der 20 ComboBoxen (cb1-cb20) drinnen sind.
Der Inhalt der CB basiert auf dem Tabellenblatt1 A1:A22. Über userform_initialize funktioniert auch soweit alles wunderbar.
Die Eingaben und Auswahlen der Userform stehen nachher in einer Excel-Tabelle.
Beim Rückschreiben der Daten aus der Tabelle (Scheleifenfunktion) in die Userform habe ich ein Problem mit den CB.
Durchlaufe ich den Code schrittweise (F8) oder setze einen Haltepunkt in die Schleife ein, dann zeigen mir die CB auch den jeweils zugehörigen korrekten Wert an. Lasse ich es durchlaufen, dann bekomme ich nur den Wert für die cb1, die anderen cb2-cb20 bleiben leer. Ich bekomme sogar ein korrektes Ergebnis wenn ich vor dem "Next i" ein MsgBox(kat(1), kat(2), kat(3)) einschiebe.
Hier mal das Codestück
menge(i), gegenstand(i), kat(i) enthalten die jeweiligen Daten, sie werden unmittelbar vorher aus der Tabelle ausgelesen. kat(i) enthält eben eins der möglichen 22 Wörter aus der Auswahlliste.
For i = 1 To 20
Dialdatenkorr.Controls("menge" & i).Text = menge(i)
Dialdatenkorr.Controls("gegenstand" & i).Text = gegenstand(i)
Dialdatenkorr.Controls("ComboBox" & i).Text = kat(i)
Next i
Ich hoffe ihr könnt mir diese Merkwürdigkeit erklären.
Grüße zum Wochenende
Heiko