Hallo Leute

Habe mit folgendem Code so meine Probleme....

Private Sub CommandButton1_Click()
Dim index As Integer, zeile As Long
zeile = 3 'Hier fängst an
For index = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(index) Then
Cells(zeile, 2) = ListBox1.List(index)
zeile = zeile + 1
End If
Next
End Sub

Ich kann dummerweise nur die A Spalte auslesen; möchte aber auch C und D auslesen können. Columncount geht nicht??? Kann mir irgend jemand mal auf die Sprünge helfen.

Danke und Gruß

Markus