Ausgabe verschiedener Spalten in einer Listbox

[snb]

Code:

Private Sub UserForm_Initialize()
  With ListBox1
    .List = Tabelle2.Cells(1).CurrentRegion.Value
    .ColumnCount = UBound(.List, 2) - 1
    For j = 1 To .ListCount - 1
      .List(j, 11) = Format(.List(j, 11), "hh:mm:ss")
    Next
  End With
End Sub

[Redgeier]

Hallo!

Ich habe nun folgenden Code:  -> Anzeige der Spalten 3, 1 & 5 in der Listbox1

Private Sub UserForm_Initialize()
  ListBox1.List = Cells(1).CurrentRegion.Value
  ListBox1.List = Application.Index(ListBox1.List, Evaluate("row(2:" & ListBox1.ListCount & ")"), Array(3, 1, 5))
End Sub


durch

Private Sub UserForm_Initialize()
  With ListBox1
    .List = Tabelle1.Cells(1).CurrentRegion.Value
    .ColumnCount = UBound(.List, 2) - 1
    For j = 1 To .ListCount - 1
      .List(j, 11) = Format(.List(j, 11), "hh:mm:ss")
    Next
  End With
End Sub


ersetzt.

Es kommt jedoch eine Fehlermedlung: Eigenschaft List konnte nicht abgerufen werden. Ungültiges Argument.

Warum das? Nur in der Spalte 5 stehen meinen Uhrzeiten drin.

Was bedeutet im Code eigentlich die Zahl 11? Woher weiß das Programm (durch den Code), dass nur das Uhrzeitformat in Spalte 5 drin steht?

Danke

Markus

[snb]

Hättest du testen können:

Code:

Private Sub UserForm_Initialize()
  With ListBox1
    .List = Tabelle1.Cells(1).CurrentRegion.Value
    .List = Application.Index(.List, Evaluate("row(2:" & .ListCount & ")"), Array(3, 1, 5))
    .ColumnCount = UBound(.List, 2) - 1
    For j = 1 To .ListCount - 1
      .List(j, 2) = Format(.List(j, 2), "hh:mm:ss")
    Next
  End With
End Sub

Wenn nur 3 Spalten eingelesen werden in den Listbox dann ist ubound(.list) = 2
Aber: warum sollte man die Datenstruktur im Arbeitsblatt nicht isomorph zu dem Listbox machen ?
Lese mal bitte etwas mehr : arrays, listbox, combobox, lbound, ubound, application.index
Was du willst/fragst ist nicht für Anfänger in VBA.

[Redgeier]

Leider funktioniert das bei mir nicht. Es wird nur 1 Spalte in der Listbox angezeigt. Nur die Spalte 3 (aus Array (3, 1, 5).

Die Spalten 1 und 5 (hier mit Uhrzeitformat) wird leider nicht in der Listbox angezeigt.

Mmmmhhhh

[Kuwer]

Hallo,

es müsste auch heißen:

.ColumnCount = UBound(.List, 2) + 1

Gruß Uwe

[Redgeier]

Danke Uwe!

So klappt es nun.

Eine kleine Frage habe ich noch.

Es zeigt ja ab der 2. Zeile die Einträge aus der Tabelle an (..Evaluate("row (2:" & .ListCount & ")"), Array (3, 1, 2, 5))

Und die Umwandlung in das Uhrzeit-Format klappt jedoch erst ab der 3. Zeile..warum?

Der erste Eintrag in der Listbox hat noch den 0,33...-Wert. 
Erst ab der 2. Zeile in der Listbox wird das Format korrekt angezeigt.

Ändere ich Row in 1, wird die Spaltenüberschrift mit in der Listbox angezeigt und die 1. Zeile mit der Uhrzeit ist korrekt. Die Überschrift sollte aber nicht mit in die Listbox.

Gruß Markus

[Kuwer]

Hallo Markus,

For j = 0 To .ListCount - 1
.List(j, 2) = Format(.List(j, 2), "hh:mm:ss")
Next

Die Nummerierung der Zeilen und Spalten einer Listbox beginnt jeweils mit 0 (Null).

Gruß Uwe