Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1264to1268
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

Übertrag in List Box, 1 Zeile waagrecht

Übertrag in List Box, 1 Zeile waagrecht
Gregor
Hoi zäme
Aus dem Forum habe ich folgenden Tipp erhalten, um eine Zeile waagrecht in eine ListBox zu übertragen:
With usrTest.lstFind
.ColumnCount = 12
If n = 1 Then
.Clear
.AddItem arrFind(1, n)
.List(0, 1) = arrFind(2, n)
.List(0, 2) = arrFind(3, n)
.List(0, 3) = arrFind(4, n)
.List(0, 4) = arrFind(5, n)
.List(0, 5) = arrFind(6, n)
.List(0, 6) = arrFind(7, n)
.List(0, 7) = arrFind(8, n)
.List(0, 8) = arrFind(9, n)
.List(0, 9) = arrFind(10, n)
.List(0, 10) = arrFind(11, n)
.List(0, 11) = arrFind(12, n)
Else
.List = Application.Transpose(arrFind)
End If
End With
Das funktioniert bis List(0, 9) bestens. Ab List(0, 10) generiert es einen Fehler. Woran liegt das, was muss ich ändern?
Vielen Dank und Gruss
Gregor

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Übertrag in List Box, 1 Zeile waagrecht
29.05.2012 15:04:21
Gregor
Hallo
Ich hab's herusgefunden
With usrTest.lstFind
.ColumnCount = 12
.Column = arrFind
End With
Gruss Gregor
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige