✔ VBA Listenfeld additem funktioniert nicht

[tombe]

Angenommen ud hast UserForm1 mit dem Button und UserForm2 mit dem Listenfeld. Dann muss Form2 geladen sein damit es geht.

Ändere die Zeile doch mal so:

UserForm1.Ist_Zelleintraege.AddItem "Eintrag " & zz

und starte. Mal sehen was dann passiert.

 

[omamarthilde]

also ich habe nur die userform1, mehr habe ich noch nicht erstellt.

wenn ich deine Zeile einfüge bekomme ich den selben Fehler wie bei meiner nämlich:

Methode oder Datenobjekt nicht gefunden (und es wird wieder AddItem markiert).

 

[tombe]

Ok und welche Excel, Access, Word oder was auch immer Version hast du?

 

[Zvoni]

Das klingt danach, als ob der Button mitten auf dem Tabellenblatt ist, und zwar der unsägliche Makro-Button, und nicht der ActiveX-Button.

Oma, füge mal folgende Zeile (Zeile 7) ein:

Private Sub cmd_Zellintegration_Click()
 
Dim zz As Integer
zz = 2

'Diese Zeile einfügen
UserForm1.Show vbModeless
 
UserForm1.Ist_Zelleintraege.Visible = True
 
Do While Worksheets("E19").Cells(zz, 1) <> ""
UserForm1.Ist_Zelleintraege.AddItem Worksheets("E19").Cells(zz, 1)
zz = zz + 1
Loop
 
 
End Sub

 

[omamarthilde]

danke für die Hilfe. Ich habe jetzt den Fehler gefunden. Ich habe wohl fälschlicherweise eine comboBox und keine ListBox in mein UserInterface eingefügt (wie gesagt das erste mal ). Jetzt funktioniert AddItem wunderbar.
Danke nochmal für die versuche zu helfen.

 

[Zvoni]

Dann bitte auch als erledigt markieren