Listboxinhalt in Zell-Kommentar kopieren
01.10.2003 17:43:52
Jens
ich habe folgendes vor. Aus einerUF-Listbox sollen alle Inhalte in ein Kommentarfeld im TB kopiert werden. Einen ansatz für Code habe ich auch, aber komme nicht weiter. Wie bekomme ich den Code so geändert das der Listbox-Inhalt (Listbox mit 3 Spalte) in ein Kommentar in "E2" eingefügt wird?
Private Sub Listbox_Positionen_in_E2()
Worksheets("Kalkulation").Range("E2").ClearContents
Dim i As Integer
Dim Wert As String
On Error Resume Next
For i = 0 To ListBox1.ListCount
Wert = Wert & "* " & ListBox1.List(i, 0) & " ;_
" & ListBox1.List(i, 1) & " ; " & ListBox1.List(i, 2) & Chr(10)
Next i
Range("E2") = Mid(Wert, 1, Len(Wert) - 1)
End Sub
Anzeige