Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
232to236
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
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listenfeld

Listenfeld
21.03.2003 12:41:42
Davide
Hallo Leute,
ich hoffe Ihr könnt mir helfen. Will mir eine Tabelle erstellen für einen Trainingsplan. Hab aber von Excel eigentlich null Ahnung. Wenn ich ein Listenfeld mit dem Formular-Listenfeld-Symbol erstelle und/oder über diese Steuerelement leiste funktioniert die Single auswahl der Namen soweit ja, aber wenn ich auf mehrfach auswahl gehe passiert gar nichts. Wie bekomme ich das hin, das ich beispielsweise 5 dieser Namen auswähle und diese dann irgendwo einfügen lasse, wenn moglich ohne irgendwelche Texte in der UserForm oder so, zu schreiben? Geht das überhaupt?

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

Betreff
Datum
Anwender
Anzeige
Re: Listenfeld
22.03.2003 14:46:05
andre

hallo davide,
da lässt man dich aber auch hängen ...
im prinzip geht das zum beispiel so:

'libo für ein array, oder eintrag in worksheet
Dim libo(50) 'dimensioniert auf mögliches maximum
'ansonsten für variable länge mal in
'die Hilfe schauen - redim preserve ..

For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
j = j + 1
'übertragen in array und sheet
libo(j) = UserForm1.ListBox1.List(i)
Worksheets("Auswahl").Cells(1, j + 14) = libo(j)
'nur übertrag auf blatt:
'Worksheets("Auswahl").Cells(1, j + 14) = UserForm1.ListBox1.List(i)
End If
Next i
gruss andre

Anzeige
Re: Listenfeld
22.03.2003 14:46:08
andre

hallo davide,
da lässt man dich aber auch hängen ...
im prinzip geht das zum beispiel so:

'libo für ein array, oder eintrag in worksheet
Dim libo(50) 'dimensioniert auf mögliches maximum
'ansonsten für variable länge mal in
'die Hilfe schauen - redim preserve ..

For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
j = j + 1
'übertragen in array und sheet
libo(j) = UserForm1.ListBox1.List(i)
Worksheets("Auswahl").Cells(1, j + 14) = libo(j)
'nur übertrag auf blatt:
'Worksheets("Auswahl").Cells(1, j + 14) = UserForm1.ListBox1.List(i)
End If
Next i
gruss andre

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige