Das Archiv des Excel-Forums
ListBox Multiselect - letzter Select wird nur ange
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
⇒ ListBox
- ListBox Multiselect - letzter Select wird nur ange von Thomas vom 08.10.2003 16:37:32
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 16:40:34
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 16:41:36
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:29:34
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:33:00
- ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:34:06
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:42:26
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:45:29
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:48:10
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:57:49
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 18:38:59
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 18:38:59
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:57:49
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:48:10
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:45:29
- ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 17:34:06
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 17:33:00
- AW: ListBox Multiselect - letzter Select wird nur ange - von Thomas am 08.10.2003 16:41:36
- AW: ListBox Multiselect - letzter Select wird nur ange - von Hajo_Zi am 08.10.2003 16:40:34
 |
Betrifft: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
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
 |
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/
|
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
|
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
|
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/
|
Betrifft: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 17:34:06
unter der eigenschaft multiselect?
|
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
|
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/
|
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
|
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/
|
Betrifft: AW: ListBox Multiselect - letzter Select wird nur ange
von: Thomas
Geschrieben am: 08.10.2003 18:38:59
ich checks einfach nicht.
sorry
| |
