Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

Listenfeld

• Listenfeld von Hugo vom 17.09.2004 10:11:52
• AW: Listenfeld - von Matthias G am 17.09.2004 10:23:23
  • AW: Listenfeld - von Daniel Hartung am 17.09.2004 10:27:09
    • AW: Listenfeld - von Hugo am 17.09.2004 10:32:39

Betrifft: Listenfeld von: Hugo
Geschrieben am: 17.09.2004 10:11:52

Hallo liebe Forum-User

In der Hoffnung dass mir doch jemand weiterhelfen kann, bringe ich nochmals mein Anliegen vor:

Ich möchte aus einem Listenfeld mittels doppelklicken verschiedene Artikel auswählen welche dann untereinander aufgelistet werden. So zum Beispeil wähle ich mittel Doppelklick den vierten Artikel im Listenfeld aus und dieser wird in Zelle G10 eingetragen. Anschliessend doppelklicke ich z.B. auf den zehnten Artikel im Listenfeld und dieser wird in Zelle G11 eingetragen usw.

Wäre schön wenn mir jemand weiterhelfen könnte.

Vielen Dank im Voraus.

Gruss Hugo

Betrifft: AW: Listenfeld von: Matthias G
Geschrieben am: 17.09.2004 10:23:23

Hallo Hugo,

den Code ins Arbeitsblattmodul, in dem das Listenfeld sich befindet:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim z As Long
z = Range("G65536").End(xlUp).Row + 1
If z < 10 Then z = 10 'ab Zeie 10
Range("G" & z) = ListBox1.Value
End Sub

Gruß Matthias




Betrifft: AW: Listenfeld von: Daniel Hartung
Geschrieben am: 17.09.2004 10:27:09

Ich hoffe das bringt dich weiter.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

LastRow = Cells(300, 5).End(xlUp).Row
Cells(LastRow + 1, 5) = ListBox1.Value

End Sub

Gruss

Daniel




Betrifft: AW: Listenfeld von: Hugo
Geschrieben am: 17.09.2004 10:32:39

Hey vielen Dank Leute

Beide Codes funktionieren!! Herzlichen Dank!

Gruss Hugo

Beiträge aus den Excel-Beispielen zum Thema "Listenfeld"