cih habe in einem Tabellenblatt zwei Listboxen, die ich mit denselben Werten füllen möchte. Das funktioniert eigentlich problemlos. Allerdings kann ich die 2. Listbox nicht anklicken: ich kann keinen Wert marjkieren, Scrollbalken verschieben-gar nichts. ich habe keine Ahnung warum, da auch keine Fehlermeldung vorliegt. Die beiden Listboxen besitzen identische Eigenschaften.
Hier der Code, mit dem meine Listboxen gefüllt werden:
Dim ws As Worksheet
Dim letzteTabellenzeile As Integer
Dim cb As ComboBox
Set ws = Worksheets("Ernährungstabelle")
letzteTabellenzeile = Tabelle4.TabellenGrößeErrechnen(wern, 5, 2, False)
'Alle Einträge in der Listbox löschen
Tabelle1.GerichtListe2.Clear
Tabelle1.GerichtListe.Clear
'neue Einträge eintragen
For j = 5 To letzteTabellenzeile - 1
gname = ws.Cells(j, 1)
code = ws.Cells(j, 2)
'Die beiden Werte in die Listboxen eintragen
Tabelle1.GerichtListe.AddItem
Tabelle1.GerichtListe.List(j - 5, 1) = gname
Tabelle1.GerichtListe.List(j - 5, 0) = code
Tabelle1.GerichtListe2.AddItem
Tabelle1.GerichtListe2.List(j - 5, 1) = gname
Tabelle1.GerichtListe2.List(j - 5, 0) = code
Next j
Danke schon mal im Voraus.