ListIndex ohne ComboBox anzuklicken

Hallo Forum,
beim starten der UserForm werden in einer mehrspaltigen ListBox die Daten aus einer Tabelle eingelesen.
Die einzelnen Spaltendaten der ListBox werden in zusätlichen Textboxen und einer vorher gefüllten ComboBox noch einmal separat aufgeführt.
Beim markieren eines Eintrages in der ListBox werden auch die entsprechenden TextBoxen und die ComboBox geädert und zeigen die neu aufgegliederten Daten der ListBox an.
Den Eintrag in der ComboBox ändere ich mittels z.B. "ComboBox1.Text = Cells(X, 22)"
Natürlich könnte ich den Celleintrag aus der Liste der ComboBox heraus jetzt auch ändern und ich hätte, wenn ich das immer machen würde kein Problem, da die ComboBox jetzt einen auswertbaren ListIndex hätte.
Nun mein Problem
In den meisten Fällen brauche ich den ComboBox-Eintrag aber nicht ändern.
Da die ComboBox in diesem Fall nicht angerührt habe, habe ich aber auch keinen auswertbaren ListIndex, den ich für andere Oprationen aber unbedingt brauche.
Mit welchen Trick komme ich jetzt doch noch zu meinem ListIndex?
Gruß
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gert,
ich möchte das nicht absichern, denn ich habe in der Anwendung mittels Kommentare und Anleitung zur genüge darauf verwiesen, dass der bestimmte Tab-Bereich nicht geändert werden darf und wie sicher das mit dem Tabellenschutz ist, wissen wir alle. ;)
Ich brauch einen sicheren ComboBox.ListIndex, der zu der Zeit, zu der diese zwar einen Wert anzeigt, aber noch nicht angeklickt wurde, eben noch nicht abrufbar ist.
Weniger elegante und auch lauffähige Ersatzlösungen habe ich aber schon getestet.
Meine Frage bezog sich eher darauf, ob ich da eine Wissenslücke habe und es doch ein Ereignis oder eine Abfragemöglichkeit gibt, die ich aber eben nicht kenne.
Das scheint aber wohl nicht der Fall zu sein, weshalb ich das als erledigt betrachte.
Entschuldige den langen Text, aber wenn sich andere schön Mühe geben, antworte ich auch gern gründlich.
Gruß
Jürgen

Dim nIndex, SuchWert$ SuchWert = Kwsh.Cells(Wzl, 31) nIndex = Application.Match(SuchWert, Application.Index(ComboBox1.List, , 1), 0) If IsNumeric(nIndex) Then nIndex = nIndex - 1 Else nIndex = -1 End If ListBox1.ListIndex = nIndex

Dim nIndex, SuchWert$ SuchWert = Kwsh.Cells(Wzl, 31) nIndex = Application.Match(SuchWert, Application.Index(ListBox1.List, , 1), 0) If IsNumeric(nIndex) Then nIndex = nIndex - 1 Else nIndex = -1 End If ListBox1.ListIndex = nIndex

Beliebteste Forumthreads (12 Monate)

ListIndex ohne ComboBox anzuklicken

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListIndex ohne ComboBox anzuklicken

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

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