Code-Hilfe
14.02.2007 08:57:22
Frederic
kann mir jemand sagen, wie ich den Code abändern muss, um meine ListBox1 mit den Werten aus Tabelle1!A6:A20 zu füllen?
Option Explicit
Private Sub Copy_Click()
Dim ClipAbLage As DataObject
Dim iRow As Integer
Dim sTxt As String
Set ClipAbLage = New DataObject
For iRow = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iRow) Then
sTxt = sTxt & ListBox1.List(iRow) & vbLf
End If
Next iRow
If sTxt <> "" Then
ClipAbLage.SetText sTxt
ClipAbLage.PutInClipboard
End If
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iMonth As Integer
For iMonth = 1 To 12
ListBox1.AddItem Format(DateSerial(1, iMonth, 1), "mmmm")
Next iMonth
End Sub
Vielen Dank, ich brings irgendwie nicht auf die Reihe.
Frederic
Anzeige