Clever-Excel-Forum

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
[attachment=668]

vorab Danke an die vielen Helfer

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

(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.

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

Hallo Uwe,
auch Dir ein Danke für die schnelle Code-übermittlung.

WergibtmirRat

Steffl

WergibtmirRat

Kuwer

WergibtmirRat