Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform Listbox

Userform Listbox
Thomas
Hallo Excelperten,
Ich suche Hilfe bei folgendem Problem.
Ich habe in Tabelle1 in der Spalte D ab Zeile 31 bestimmte Werte stehen. Diese Werte möchte ich nun in einer Listbox auf einer Userform auswählen können. Problem ist, dass die Anzahle der Werte variabel ist. Es kann also sein, dass die Zellen D31 bis D? belegt sind oder aber auch nur D31 bis D33 zum Beispiel.
Nach dem letzten Eintrag befindet sich immer eine Leerzeile. Die Listbox müsste also alle belegeten Zellen ab D31 bis zur nächsten Leerzeile auf der Userform anzeigen.
Danach möchte ich das der ausgewählte Wert in der Listbox in Tabelle2 Zelle A1 eingetragen wird. Ich möchte dies per Commandbutton auf der Userform auslösen.
Kann mich jemand mit den Makros auf den richtigen Weg bringen?
Vielen Dank!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Listbox
11.07.2010 14:48:06
Beverly
Hi Thomas,
für das Füllen der ListBox:
Private Sub UserForm_Activate()
Dim lngZeile As Long
lngZeile = 31
With Worksheets("Tabelle1")
Do
ListBox1.AddItem .Cells(lngZeile, 4)
lngZeile = lngZeile + 1
Loop While .Cells(lngZeile, 4)  ""
End With
End Sub

und für das Übertragen des ausgewählten Wertes:
Private Sub CommandButton1_Click()
Worksheets("Tabelle2").Range("A1") = ListBox1
End Sub



Anzeige
AW: Userform Listbox
11.07.2010 16:02:52
Thomas
Hallo Beverly,
Vielen Dank für die schnelle Hilfe.
Ich probier das gleich mal aus.
Schönen Tag noch!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige