Ausgabe verschiedener Spalten in einer Listbox

[Redgeier]

Kannst Du dennoch Deine Datei (mit geänderter Initialize) nochmal mit hochladen?

Dann würde ich mir das nochmal anschauen.

Wäre nett. 

Dank Dir

[Kuwer]

Bitteschön.

[Redgeier]

Danke Uwe!

Mal schauen, ob snb noch einmal antwortet, würde mich interessieren, ob er auf Deine Frage noch einen Vorschlag hat.

Ansonsten muss ich jetzt mal schauen, wie ich die Userform noch nach meinen Kriterien (10 Spalten) abändern kann, dass später auch die Comoboxen richtig funktionieren. Also meine ausgewählten Spalten aus dem Reiter "Test" sollen später auch so in der Listbox angezeigt werden, wie es anfangs bei "Tabelle1" war.

Gruß Markus

[Kuwer]

Hallo Markus,

Mal schauen, ob snb noch einmal antwortet, würde mich interessieren, ob er auf Deine Frage noch einen Vorschlag hat.

da musst Du nicht warten.
In dieser Zeile wird gesteuert, wieviele und welche Spalten an welcher Position eingelesen werden:

              'A, C, D, E, F, I, K , L , M , O
  varC = Array(1, 3, 4, 5, 6, 9, 11, 12, 13, 15)

Ich ging davon aus, dass Du das verstanden hattest.

Gruß Uwe

[snb]

Einfach so:

Spaltenfolge: 3,1,5

Code:

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

[Kuwer]

Hallo snb,

das ist doch mal eine richtig gute Verkürzung. 
Danke.

Gruß Uwe

[snb]

@Kuwer

Das freut mich.

Sehe mal: https://www.snb-vba.eu/VBA_Arrays_en.html#L_6.0.4.4

[Redgeier]

Hallo!

Was müsste ich am Code ändern, damit die Einträge ab Zeile 2 erst in der Listbox eingeblendet werden?

Also die Spaltenüberschriften demnach nicht mit in der Listbox auftauchen? 

Danke

Gruß Markus

[snb]

Hättest du selbst ahnen können:

Code:

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

[Redgeier]

Danke für die schnelle Antwort!

Und wenn ich zum Beispiel in Spalte 5 meiner Tabelle eine Uhrzeit zu stehen habe, wie bekommt man es hin, dass in der Listbox auch die Uhrzeit auftaucht und nicht 0,007374..Also Dezimalzahlen mit vielen Stellen nach dem Komma!