Listbox-Einträge auf ein Tabellenblatt schreiben

[DerAnfänger]

Hallo,

ich habe mir ein kleines Programm gebastelt welches mir Einträge aus einem Verzeichnis in eine Listbox1 schreibt.

Diese Einträge aus der Listbox, deren Anzahl entsprechend dem ausgesuchten Verzeichnis ja variabel ist, sollen jetzt

auf ein Excel-Tabellenblatt geschrieben werden. Wie mache ich das?

[Kuwer]

Hallo,

so in der Art:

Private Sub CommandButton1_Click()
 With ListBox1
   If .ListCount Then
     ActiveSheet.Range("B13").Resize(.ListCount).Value = .List
   End If
 End With
End Sub

Gruß Uwe