Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Listbox ordentlich mit additem füllen
24.09.2004 08:44:19
Rainer
Hallo,
gibt es vielleicht eine Möglichkeit eine Listbox ordentlich per additem befehl zu füllen?
etwa so:
userform1.listbox1.additem Name {tab} Telefonnummer {tab} wasauchimmer
Gruß
Rainer

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox ordentlich mit additem füllen
tobias
Hallo
z.B. so:

Sub ListBoxfüllen()
Dim zähler As Long, Zähler2 As Integer, EndZelle As Long, Spalte As Integer
On Error Resume Next
For zähler = ListBox1.ListCount - 1 To 0 Step -1
ListBox1.RemoveItem zähler
Next zähler
EndZelle = Cells(65536, 2).End(xlUp).Row
If EndZelle < 10 Then Exit Sub
For zähler = 11 To EndZelle
ListBox1.AddItem Cells(zähler, 3)
For Zähler2 = 1 To 9
Spalte = Zähler2 + 3
ListBox1.List(ListBox1.ListCount - 1, Zähler2) = Cells(zähler, Spalte)
Next Zähler2
Next zähler
End Sub

mfg tobias
Anzeige

107 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige