Aus einer Listbox in die Andere eintragen

16/10/2008 - 12:00 von Iegel | Report spam
Hallo, ich habe ein Problem mit 2 Listboxen in VBA. Und zwar will ich mit
Hilfe eines Buttons einen gewàhlten Eintrag aus einer Listbox in eine andere
Listbox schreiben. Dafür habe ich mir folgendes überlegt:


Private Sub hinzufuegen_cmd_click()

Dim i As Integer

i = 0

austragen_lb.AddItem
austragen_lb.List(i, 1) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 2) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 3) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 4) = status_lb.List(status_lb.value, 1).value
i = i + 1


End Sub


Mit dem Hinzufügen Button möchte ich einen gewàhlten eintrag aus der status
listbox in die austragen listbox einfügen.
Jedoch sagt er mir beim ausführen:

Laufzeitfehler'424':

Objekt erforderlich


Die objekte sind alle vorhanden und richtig geschrieben. Ich weiß einfach
nicht weiter. Hat villeicht jemand eine Idee?

MfG, Iegel
 

Lesen sie die antworten

#1 stefan onken
16/10/2008 - 14:08 | Warnen spam
On 16 Okt., 12:00, Iegel wrote:
Hallo, ich habe ein Problem mit 2 Listboxen in VBA. Und zwar will ich mit
Hilfe eines Buttons einen gewàhlten Eintrag aus einer Listbox in eine andere
Listbox schreiben. Dafür habe ich mir folgendes überlegt:

Private Sub hinzufuegen_cmd_click()

Dim i As Integer

i = 0

austragen_lb.AddItem
austragen_lb.List(i, 1) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 2) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 3) = status_lb.List(status_lb.value, 1).value
austragen_lb.List(i, 4) = status_lb.List(status_lb.value, 1).value
i = i + 1

End Sub

Mit dem Hinzufügen Button möchte ich einen gewàhlten eintrag aus der status
listbox in die austragen listbox einfügen.
Jedoch sagt er mir beim ausführen:

Laufzeitfehler'424':

Objekt erforderlich

Die objekte sind alle vorhanden und richtig geschrieben. Ich weiß einfach
nicht weiter. Hat villeicht jemand eine Idee?

MfG, Iegel



hallo legel,
teste mal ohne die Value am Ende, also nur
austragen_lb.List(i, 1) = status_lb.List(status_lb.value, 1)

Ich weiss aber nicht, warum es mit Value hier nicht funktioniert. Die
Zuweisung
austragen_lb.List(i, 1) = Range("A1").Value
zB funktioniert.

Gruß
stefan

Ähnliche fragen