Office: Eigenschaft Column konnte nicht abgerufen werden

Ich habe die Absicht, den Inhalt eines Sheets in einem Listenfeld auszulesen. Leider will Excel bzw. VBA das nicht ohne Fehler machen.

Der Modulcode lautet

Code:

Wenn ich das Makro ausführe, bekomme ich den entsprechenden Wert angezeigt, wenn ich mit der Maus auf die Zeile zeige. Obwohl in ihrem Aufbau gleich, wird ab Code .ListBox1.Column(10, i) = Cells(lng, 11).Value ein Fehler ausgegeben. Wird die UserForm ausgeführt, gibt sie den Fehler "Laufzeitfehler '380'. Eigenschaft Column konnte nicht gesetzt werden. Ungültiger Eigenschaftswert." aus. Wenn ich Debuggen lasse und ich mit der Maus über die fehlerhafte Zeile(n) fahre, wird in einem kleinen Feld angezeigt: "Eigenschaft Column konnte nicht abgerufen werden. U..." (mehr wird leider nicht angezeigt, der Kommentar ist gekürzt).

Ist in dem Code ein Fehler oder kann VBA in einer ListBox nur eine gewisse Anzahl an Spalten anzeigen?

:)

 

Hallo Illuminati,

siehe VBA-Hilfe zu "ColumnCount" :

Wenn ColumnCount auf 0 gesetzt wird, werden keine Spalten angezeigt. Wird die Eigenschaft auf -1 gesetzt, dann werden alle verfügbaren Spalten angezeigt. Bei ungebundenen Datenquellen liegt die Obergrenze bei 10 Spalten (0 bis 9).

 

Wie lassen sich ohne eine gebundene Datenquelle mehr als 10 Spalten anzeigen?

 

_oT = "ohne Text"

 

Das habe ich schon gelesen. Ich meinte das auch anders.

Es geht nicht in Verbindung einer ListBox mit ColumnCount. Aber vielleicht geht es ja mit einer TextBox oder auf eine andere Art und Weise. Es gibt ja nicht nur ein List-Objekt.

 

Hallo Illuminati,

da ich hoffe, dass Du nicht "beratungsresistent" *grins bist, kann ich Dir noch das "Microsoft Office Spreadsheet" empfehlen, das eine Art "Mini-Excel-Tabelle" in das UserForm integriert.
Dieses Steuerelement erhältst Du per Rechtsklick in der Werkzeugsammlung des Userforms und Auswahl "Zusätzliche Steuerelemente".
Wie Du das Spreadsheet mit Daten befüllen kannst, kann ich Dir leider nicht beantworten, evtl. findest Du dazu Infos über "Tante Google" oder jemand anderes kann es hier beantworten...

 

Hi ihr zwei,

stellt euch nicht so an. Eine Listbox ist ein Array und ein Array kann ich so groß machen bis der Speicher überläuft. Mal ein Beispiel für eine Listbox mit 50 Spalten und 50 Zeilen:

Private Sub UserForm_Activate()
Dim lngRow As Long, lngColumn As Long
Dim strArray(1 To 50, 1 To 50) As String
ListBox1.ColumnCount = 50
For lngRow = 1 To 50
For lngColumn = 1 To 50
strArray(lngRow, lngColumn) = CStr(lngRow * lngColumn)
Next
Next
ListBox1.List = strArray
End Sub

Ich hab's gerade mal zum Spaß getestet, eine Listbox mit 50.000 Spalten - 0 Problemo. *boah

 

Nachtrag:

Über die Columns-Eigenschaft kann darauf nicht zugegriffen werden, aber über die List-Eigenschaft. MsgBox ListBox1.List(49, 49)