Additem funzt nicht

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

bei folgendem Code wird der Eintrag „Eingabe“ nicht in der Combobox angelegt.

Private Sub ComboBox1_Click()
Me.ComboBox1.AddItem „Eingabe“
End Sub

Warum?

2

Hallo zusammen,

Hi,

bei folgendem Code wird der Eintrag „Eingabe“ nicht in der
Combobox angelegt.

Private Sub ComboBox1_Click()
Me.ComboBox1.AddItem „Eingabe“
End Sub

Warum?

Ich tippe mal stark darauf, dass das Event „Combobox1_Click“ gar nicht aufgerufen wird.

Gruß.Timo

3

Hallo und danke für die Antwort,

ich habe jetzt statt der Combobox die Listbox verwendet und bin jetzt schon wieder auf ein neues Problem gestoßen.

Private Sub listbox1_gotfocus()
Me.ListBox1.AddItem „Blatt1“
Me.ListBox1.AddItem „Blatt2“
Me.ListBox1.AddItem „Blatt3“

Das Problem bei obigen Code ist, dass jedesmal die Listbox mit den Werten gefüllt wird, auch wenn diese Schon vorhanden sind. Gibt es eine Möglichkeit diesen Code nur einmal auszuführen?

THX

4

Hallo und danke für die Antwort,

Hi und bitte für die Antwort :wink:

ich habe jetzt statt der Combobox die Listbox verwendet und
bin jetzt schon wieder auf ein neues Problem gestoßen.

Private Sub listbox1_gotfocus()
Me.ListBox1.AddItem „Blatt1“
Me.ListBox1.AddItem „Blatt2“
Me.ListBox1.AddItem „Blatt3“

Das Problem bei obigen Code ist, dass jedesmal die Listbox mit
den Werten gefüllt wird, auch wenn diese Schon vorhanden sind.
Gibt es eine Möglichkeit diesen Code nur einmal auszuführen?:

Eine Möglichkeit wäre es, eine globale bool’sche Variable zu deklarieren, die nach dem ersten Aufruf des listbox_gotfocus-Events auf TRUE gesetzt wird.

Public bolSchonGefuellt as Boolean

Private Sub listbox1\_gotfocus()
 If bolSchonGefuellt = False then
 Me.ListBox1.AddItem "Blatt1"
 Me.ListBox1.AddItem "Blatt2"
 Me.ListBox1.AddItem "Blatt3"
 End If
End Sub

THX

Gruß.Timo

5

Danke für die Hilfe!

Jetzt klappt alles wie es soll.

Bis dann!