Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listbox mit Tabellenzelle füllen

Listbox mit Tabellenzelle füllen
15.08.2003 17:40:41
Olaf
Hallo,
habe da ein kleines Problem mit einer Listbox die in einer Userform dargestellt wird. In Tabelle1 ist eine kleine Datenbank erstellt aus der ich gerne aus Spalte j gerne die Informationen in die Listbox einfügen möchte, abhängig vom Datensatz (Zeile).
Ich habe es schonmal versucht mit
me.listbox1.rowsource=range(cells(aa,14) (wobei aa die veränderbare Variable ist)
oder auch
me.listbox1.rowsource=range(cells(aa,14),cells(aa,14))
oder
me.listbox1.rowsource=worksheets("Anschriften").Range(cells(aa,14),cells(aa,14))
mit allen 3 Versuchen brachten mir keinen Erfolg.
Das 2. Problem ist dann noch, sobald sich die Variable aa ändert muß die Listbox aktualisiert werden.
Ich hoffe jemand kann mir weiter helfen
Danke an alle die mir helfen können.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox mit Tabellenzelle füllen
15.08.2003 20:14:33
Oliver
Hallo Olaf,
anhängend der Code, der beim start einer Userform alle Werte in der Spalte A einliest.

Sub UserForm_Initialize()
lzeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To lzeile
UserForm1.ListBox1.AddItem Tabelle1.Cells(a, 1).Value
Next a
End Sub

Um eine Listbox mittels Eingabe von einer Zahl in einer Exceltabelle zum neueinlesen zu bringen brauchst Du ein Ereignis in 'DieseArbeitsmappe':
Address läßt sich durch Value ersetzen und danach kannst Du das Ereignis Listbox einlesen starten.

Sub Worksheet_SelectionChange _
(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then MsgBox "Zelle A1 selektiert"
End Sub

Ich hoffe die Code-Beispiele haben Dir weitergeholfen.
Gruß
Oliver

Anzeige
AW: Listbox mit Tabellenzelle füllen
15.08.2003 20:29:33
PeterW
Hallo Olaf,
im Modul der UserForm:

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Anschriften!J1:J" & Variable
End Sub

Mit Cells(xx, 14) sprichst du die Spalte N an, für Spalte J müsste es Cells(xx, 10) sein. Die Aktualisierung würde ich mit dem Code durchführen, mit dem du Werte in die Tabelle schreibst.
Gruß
Peter

AW: Listbox mit Tabellenzelle füllen
15.08.2003 20:29:35
Olaf
UserForm1.ListBox1.AddItem Tabelle1.Cells(a, 1).Value
das war genau die Zeile die mir geholfen hat, danke!!!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige