Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus Listbox mit MultiSelect

Werte aus Listbox mit MultiSelect
21.01.2005 14:36:06
R.Schmitt
Liebe Sachverständige,
wie stelle ich es an, die in einer ListBox
mit der Option MultiSelect (alsomehr als
nur eine Auswahl) ausgewählten Werte (nehmen
wir an es seien 5 von insgesamt 10) in den
Tabellenbereich A1:A5 zu übertragen ?
Mit LinkedCell ist da ja kein Blumentopf
zu gewinnen.
Grüße und allen ein schönes Wochenende
R.Schmitt

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

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Listbox mit MultiSelect
21.01.2005 14:43:40
Peter
Hallo,
mußt Du jedoch noch Deinen Bedürfnissen anpassen.
Peter
Option Explicit

Private Sub cmdInsert_Click()
Dim arrValues() As Variant
Dim intLastRow As Integer, intRow As Integer, intCol As Integer, intRowU As Integer
lstMultiCol.Clear
intLastRow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intLastRow
If Not IsEmpty(Worksheets(1).Cells(intRow, 1)) Then
ReDim Preserve arrValues(0 To 4, 0 To intRowU) 'anpassen
arrValues(0, intRowU) = Worksheets(1).Cells(intRow, 1)
arrValues(1, intRowU) = Worksheets(1).Cells(intRow, 2)
arrValues(2, intRowU) = Worksheets(1).Cells(intRow, 3)
arrValues(3, intRowU) = Worksheets(1).Cells(intRow, 4) 'anpassen
arrValues(4, intRowU) = Worksheets(1).Cells(intRow, 5) 'anpassen
intRowU = intRowU + 1
End If
Next intRow
lstMultiCol.Column = arrValues
End Sub



Private Sub cmdWeiter_Click()
Unload Me
End Sub



Private Sub lstMultiCol_Click()
'Einträge aus mehrspaltiger Listbox in Tabelle
Dim i%, iRow%
iRow = Cells(Rows.Count, 5).End(xlUp).Row + 1
For i = 1 To 3
Cells(iRow, 4 + i) = Worksheets(1).Cells(lstMultiCol.ListIndex + 2, i)
Next i
End Sub

Anzeige
AW: Werte aus Listbox mit MultiSelect
21.01.2005 14:50:04
Josef
Hallo R. ?
Das kann man zB. so lösen!


      
Private Sub CommandButton1_Click()
Dim arr() As Variant
Dim n As Integer, i As Integer
i = -1
   
   With ListBox1
   'alle Einträge der Listbox durchlaufen
      For n = 0 To .ListCount - 1
      'wenn Eintrag ausgewählt, dann
         If .Selected(n) Then
            i = i + 1
            'Array neu dimensionieren
            ReDim Preserve arr(i)
            'Eintrag an Array übergeben
            arr(i) = .List(n)
         End If
      Next
   End With
   
'Array an Tabellenbereich übergeben
Range("A1:A" & UBound(arr) + 1) = Application.Transpose(arr)
End Sub 


Gruß Sepp
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige