ListBox füllen
15.02.2015 18:33:21
gotoo
Hallo - hier erst mal mein Code, dann mein Problem.
Private Sub Bt_InhaltZelleA1InArray_Click()
'Zelle als Bereich definieren
Dim Bereich As Object
Set Bereich = Worksheets("Signatur").Range("B1")
'Bereich in die Zwischenablage kopieren
Dim Clipboard As DataObject
Set Clipboard = New DataObject
Clipboard.SetText Bereich
Clipboard.PutInClipboard
'MsgBox (Clipboard.GetText) Hab ich zum testen - Inhalt B1 ist in der Zwischenablage
Dim ArrayList As Object, MeineSubArrayList As Object
Set ArrayList = CreateObject("System.Collections.ArrayList")
ArrayList.Add Split(Clipboard.GetText, vbLf)
Set MeineSubArrayList = ArrayList.GetRange(0, 1)
ListBox1.List() = ArrayList.ToArray()
End Sub
Hier mein Problem: In der ListBox1 erscheint kein Inhalt. Es kommt aber auch keine Fehlermeldung.
Anzeige