Das Archiv des Excel-Forums

ListBox Multiselect - letzter Select wird nur ange

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: ListBox Multiselect - letzter Select wird nur ange
von: Thomas

Geschrieben am: 08.10.2003 16:37:32

Hallo Forum!

Meine Listbox wird aus den ersten 3 Spalten der Tabelle1 befüllt.
Wenn ich in der Listbox eine Zeile markiere kann ich diese mit Click eines Buttons in eine andere Tabelle kopieren.

Ich möchte diese Listbox jetzt auf Multiselect umstellen. Hab dies auch getan. Nur wenn ich mehrere anklicke wird nur die zuletzt markierte Zeile kopiert.

Was muß ich tun damit alle kopiert werden.

Liebe Grüsse
Thomas
Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Hajo_Zi
Geschrieben am: 08.10.2003 16:40:34

Hallo Thomas

da muß Du eine Schleife drüber laufen lassen.

Private Sub CommandButton1_Click()
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Tabelle1")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If LoLetzte = 65536 Then
MsgBox "keine Zeile mehr frei"
Exit Sub
End If
'   von Peter Hasserodt
For LoI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(LoI) Then
's = s & ListBox1.List(i)
' Beispiel nur Spalte 1
.Cells(LoLetzte + 1, 1) = ListBox1.List(LoI, 0)
LoLetzte = LoLetzte + 1
End If
Next LoI
End With
End Sub




Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 16:41:36

Danke.

Werd das gleich mal versuchen.

Liebe Grüsse
Thomas


Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 17:29:34

hallo hajo,

muß ich bei der listbox in den eigenschaften auch irgendetwas berücksichtigen?

gruss thomas


Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Hajo_Zi
Geschrieben am: 08.10.2003 17:33:00

Hallo Thomas

Du mußt nur einstellen das mehrere Einträge ausgewählt werden können.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 17:34:06

unter der eigenschaft multiselect?


Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 17:42:26

Bin mir nur nicht sicher wo ich bei .list das i einbaue.

gruss thomas



For i = 0 To lstAuswahl.ListCount - 1

If lstAuswahl.Selected(i) = True Then

Sheets("Tabelle3").Cells(iRow, 1) = lstAuswahl.List(lstAuswahl.ListIndex, 0)
Sheets("Tabelle3").Cells(iRow, 2) = lstAuswahl.List(lstAuswahl.ListIndex, 1)
Sheets("Tabelle3").Cells(iRow, 3) = lstAuswahl.List(lstAuswahl.ListIndex, 2)

End If
Next i


Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Hajo_Zi
Geschrieben am: 08.10.2003 17:45:29

Hallo Thomas

da wo Du es auswerten willst z.B. nach Klick auf einen CommandButton.



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 17:48:10

Hier der Ganze.
Irgendwas stimmt noch nicht. Kopiert noch immer die zuletzt ausgewählte Position


Private Sub cmdEintragen_Click()
Dim iRow As Integer
Dim i As Long
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For i = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(i) = True Then
Sheets("Tabelle3").Cells(iRow, 1) = lstAuswahl.List(lstAuswahl.ListIndex, 0)
Sheets("Tabelle3").Cells(iRow, 2) = lstAuswahl.List(lstAuswahl.ListIndex, 1)
Sheets("Tabelle3").Cells(iRow, 3) = lstAuswahl.List(lstAuswahl.ListIndex, 2)
End If
Next i
End Sub



Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Hajo_Zi
Geschrieben am: 08.10.2003 17:57:49

Hallo Thomas

ich hänge mal meine Beispieldatei an.
https://www.herber.de/bbs/user/1341.xls



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 18:38:59

ich checks einfach nicht.

sorry


 Bild

Excel-Beispiele zum Thema " ListBox Multiselect - letzter Select wird nur ange"

Mehrfachauswahl aus ListBox auslesen download Gefilterte Daten in eine ListBox einlesen download
Dateien aus Listbox auslesen und öffnen download Listbox-Eintrag durch Mausbewegung markieren download
ListBox-Einträge auswechseln download Horizontal angeordnete Elemente in eine ListBox übernehmen download
Tabellenblattnamen in eine ListBox einlesen download ListBox bei Eintrag erweitern download
Als Zellkontextmenü Listbox aufrufen download Dateinamen in Listbox download
Mehrfachauswahl in ListBox auslesen download Ordner eines Verzeichnisses in ListBox übernehmen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Matrix in UserForm-ListBox einlesen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download ListBox-Auswahl in Labels übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Mehrspaltige UserForm-ListBox lückenlos füllen download Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download Werte aus UserForm-ListBox in die Zwischenablage übernehmen download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download UserForm-TextBox-Werte einer ListBox hinzufügen download
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download Zufallszahl in UserForm-ListBox zentriert anzeigen download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download
UserForm-ListBox-Einträge sortieren download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Doppelte Einträge in UserForm-ListBox löschen download Mehrspaltige UserForm-ListBox sortieren download
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download Zweite ListBox in Abhängigkeit der ersten füllen download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download
Letzter Wert in Zeile download Letzter Wert aus einem Bereich download
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download Zeile mit letzter Fundstelle an letzte Position der Liste download
Focus und Selection zwischen zwei TextBoxes wechseln download Beispiele zum Einsatz des SelectionChange-Ereignisses download