Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1168to1172
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

Liste mit mehrfachauswahl soll Auswahl ausgeben

Liste mit mehrfachauswahl soll Auswahl ausgeben
Sebastian
Hallo,
wie die Überschrift schon sagt, brauche ich dringend ein Listenfeld, in dem ich mehrere (aber nicht alle)Städte auswählen kann, die dann untereinander auftauchen in einer Tabelle stehen.
Kann ich das Realisieren?
geht das?
Vielen Dank für Hilfe.
Sebastian

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

Betreff
Benutzer
Anzeige
AW: Liste mit mehrfachauswahl soll Auswahl ausgeben
23.07.2010 10:15:13
ransi
HAllo
...
ein Listenfeld, in dem ich mehrere (aber nicht alle)Städte auswählen kann...

Was ist denn das Kriterium das sagt:
Diese Stadt darf man auswählen und diese Stadt nicht ?
ransi
AW: Liste mit mehrfachauswahl soll Auswahl ausgeben
23.07.2010 10:22:26
Sebastian
Der User selber entscheidet welche Städte er auswählt.
wichtig er soll mehrere auswählen dürfen.
AW: Liste mit mehrfachauswahl soll Auswahl ausgeben
23.07.2010 11:17:47
ChrisL
Hi Sebastian
Beispiel im Anhang...
https://www.herber.de/bbs/user/70724.xls
cu
Chris
Private Sub ListBox1_Change()
If Not checkauswahl Then
MsgBox "Es dürfen nicht alle Städte gleichzeitig ausgewählt werden"
Call auswahlaufheben
Exit Sub
End If
Call auswahlübertragen
End Sub

Private Function checkauswahl() As Boolean
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = False Then
checkauswahl = True
Exit For
End If
Next i
End Function

Private Sub auswahlaufheben()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub

Private Sub auswahlübertragen()
Dim i As Long
Range("B2:B100").ClearContents
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Cells(Range("B65536").End(xlUp).Row + 1, 2) = ListBox1.List(i)
Next i
End Sub

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige