Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ListBox füllen

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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox füllen
15.02.2015 19:52:53
Luschi
Hallo gotoo,
bei mir klappt das so:
Me.ListBox1.List() = WorksheetFunction.Transpose(ArrayList.ToArray())
Ich verstehe aber nicht warum solche Umwege. Es geht doch auch so:
- Me.ListBox1.List() = Split(Bereich.Value, ":", -1, vbTextCompare)
oder
- Me.ListBox1.List() = Array(Bereich.Value)
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige