ich suche einen Code mit dem ich aus einer 2-spaltigen Listbox die Werte in TB speichern kann. Dabei soll in TB ab "J50" gespeichert werden. Der nachfolgende Code kopiert eben nur den Wert aus Spalte 1 der Listbox. Wo muß was geändert werden?
Private Sub CommandButton2_Click()
Worksheets("Produktiver Lohn").Range("J50:CK100").ClearContents
With Worksheets("Produktiver Lohn")
Dim i, a
a = 50
For i = 0 To ListBox1.ListCount - 1
ListBox1.ListIndex = i
Cells(a, 10) = ListBox1.Text
'Cells(a, 11) = ListBox1.Text
a = a + 1
Next
End With
Unload Me
End Sub