Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten 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
Antworten Top
#3
(17.10.2014, 18: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.
Antworten 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
Antworten Top
#5
Hallo Uwe,
auch Dir ein Danke für die schnelle Code-übermittlung.
Antworten Top


Gehe zu:


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