Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

Listboxeinträge in Tabelle speichern (Lstbox1auswahl zu Lstbox2) 2 speichern
#1
Hallo @all
Habe mal wieder einen kleinen Blackout
In Listbox1 stehen Namen zur Auswahl; per Single oder Multiselect werden jene markiert.
Per Commandbutton (Hinzufügen) in Listbox2 übergeben.
Mit dem nächsten Commandbutton (Weiter) sollen die Einträge in Listbox2 ab Zeile 2 in Spalte 31 nach unten gespeichert werden.

Frage: Wie muss/sollte der Code für die besagte Spalte geschrieben werden.
anbei Probedatei

.xlsm   Vornamen.xlsm (Größe: 15,72 KB / Downloads: 8)


vorab Danke an die vielen Helfer
Top
#2
Hallo Frank,

versuchs mal so

Code:
Private Sub CommandButton4_Click()
   Dim lngLastRow As Long
   Dim lngC As Long
  
   With Worksheets("Tabelle1")
      lngLastRow = .Cells(.Rows.Count, 31).End(xlUp).Row + 1
      If ListBox2.ListCount > 0 Then
         For lngC = 0 To ListBox2.ListCount - 1
            .Cells(lngLastRow, 31).Value = ListBox2.List(lngC)
            lngLastRow = lngLastRow + 1
         Next lngC
      End If
   End With
End Sub
Gruß Stefan
Win 10 / Office 2016
Top
#3
(17.10.2014, 19:17)Steffl schrieb: versuchs mal so
Hallo Stefan, hab dank für den schnellen Code.
Meine kleine Kegeltabelle nimmt immer weiter Formen an.
Nochmals Danke.
Top
#4
Hallo Frank,

Code:
Private Sub CommandButton4_Click()
  Dim i As Long
  Dim strliste() As String
  ReDim strliste(1 To ListBox1.ListCount, 1 To 1)
  With ListBox2
    For i = 0 To .ListCount - 1
        strliste(i + 1, 1) = .List(i)
    Next i
  End With
  Range("AE2").Resize(UBound(strliste), 1).Value = strliste
End Sub

Gruß Uwe
Top
#5
Hallo Uwe,
auch Dir ein Danke für die schnelle Code-übermittlung.
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste