Microsoft Excel

Herbers Excel/VBA-Archiv

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

Listenfeld

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"