Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2025 11:04:50
Aktualisieren Button mit Piktogramm?
13.05.2025 10:24:22
Formelfehler
13.05.2025 08:10:06
Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
13.05.2025 07:51:02
Exceldateien schneller öffnen / abspeichern?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dringend!!! Listbox

Forumthread: Dringend!!! Listbox

Dringend!!! Listbox
29.01.2004 10:17:58
Burkhart
Hallo Excelgemeinde,
hab mal wieder ein problem, das wie folgt aussieht:
Würde gern in einer Listbox einer userform aller Daten von verschiedenen Tabellenblättern einer bestimmten Spalte ( sagen wir mal spalte b ) ausgeben.
wie müßte ich dies anstellen.
danke
Anzeige

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

Kategorie
Userform
Tags
#listbox #userform #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Dringend!!! Listbox
29.01.2004 10:41:07
Martin M.
Hallo Burkhard
Das hier wäre in Ansatz:

Sub testen()
'Aus Tabelle 1 werden die ersten 10 Zeilen der Spalte C ausgelesen
'und ins Feld ListBox1 des Formulares frmDeinFormular geschrieben.
For i = 1 To 10
frmDeinFormular.ListBox1.AddItem = Tabelle1.Cells(i, 3)
Next i
'Aus Tabelle 2 werden die ersten 20 Zeilen der Spalte C ausgelesen
'und ins Feld ListBox1 des Formulares frmDeinFormular geschrieben.
For i = 1 To 20
frmDeinFormular.ListBox1.AddItem = Tabelle2.Cells(i, 3)
Next i
frmDeinFormular.Show
End Sub

Achtung: Tabelle1 und Tabelle2 sind die internen Namen der Blätter und nicht jene, die du auf den Registern siehtst.
Grüße
Martin
Anzeige
funzt net...
29.01.2004 11:30:51
Burkhart 

Sub testen()
For i = 1 To 10
UserForm1.ListBox1.AddItem Tabelle1.Cells(i, 1)
Next i
For i = 1 To 20
UserForm1.ListBox1.AddItem Tabelle2.Cells(i, 1)
Next i
UserForm1.Show
End Sub

habs so eingetippt..funktioniert totzdem nicht..die listbox bleibt leer
Anzeige
AW: funzt net...
29.01.2004 13:02:25
Fabian
Hallo,
hast Du den letzten Satz von Martin beherzigt?
"Achtung: Tabelle1 und Tabelle2 sind die internen Namen der Blätter und nicht jene, die du auf den Registern siehtst. "
... falls Du nicht wissen solltest wo das zu finden ist: Das Stichwort heisst "VBA Editor"
Viele Grüsse
Fabian
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige