Hallo,

ich versuche mich gerade an einer Übung zu UserFormen, bei der ich aus einem worksheet Namen in ein Listenfeld stecken soll. Das Listenfeld ist erst nicht sichtbar und wird durch Druck auf einen commandbutton sichtbar und mit den Namen gefüllt. Laut unserem Skript soll das mit AddItem funktionieren, bei mir gibt es aber einen Fehler aus.

hier mal mein Code

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub cmd_Zellintegration_Click()   Dim zz As Integer zz = 2   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

Und welchen Fehler bekommst du? So bald ich das weiß schau ich mir dann den Code an.

Methode oder Datenobjekt nicht gefunden (AddItem markiert)

Und diese Angabe für die Tabelle/Zelle ist richtig: Worksheets("E19").Cells(zz, 1)?

Sofern nicht schon geschenen, blende mal das Direktfenster ein und gebe dort folgende Zeile ein

Code vb:

1	? Worksheets("E19").Cells(zz, 1)

Damit sollte der Inhalt der entsprechenden Zelle (je nach Wert von zz) ausgegeben werden. Oder eben ein Fehler wenn die Angaben falsch sind.

Aus dem hohlen Bauch heraus: Die UserForm ist nicht geladen!

Ich denke mal der Button und das Listenfeld ist auf der gleichen Form.
Mir kommt das "E19" komisch vor, sieht wie eine Zellangabe und nicht wie der Name einer Tabelle aus!?

wenn ich zeile 9 meines codes auskommentiere und stattdessen

msgbox(worksheets("E19").cells(zz,1))

eintrage werden mir alle namen nacheinander richtig angezeigt sobald ich den commandbutton betätige.

Dein Tabellenblatt heisst also "E19"?

Edit: Also ich habs mal bei mir versucht mit deinen Angaben.
Ich bekomme keinen Fehler.

Also entweder UserForm nicht geladen, oder das Tabellenblatt heisst nicht E19

Und was ist mit dem was Zvoni sagt? Falls es zwei Forms gibt, ist die UserForm mit dem Listenfeld sichtbar?

was meinst du mit userform nicht geladen (das ist meine erste aufgabe die was mit userformen zu tun hat )? und ja, das worksheet heißt E19, wie gesat wenn ichs mit msgboxen ausgeben lasse funktioniert es wunderbar.

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:

Code vb:

1	UserForm1.Ist_Zelleintraege.AddItem "Eintrag " & zz

und starte. Mal sehen was dann passiert.

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).

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

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:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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

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 :P ). Jetzt funktioniert AddItem wunderbar.
Danke nochmal für die versuche zu helfen.