mehrspaltige Listbox
26.08.2019 10:32:33
mensi
ich steh gerade etwas auf dem Schlauch und vielleicht kann mir jemand hier weiterhelfen.
Hintergrund: in Zeile 2 sind die aufzulistenden Tabellenüberschriften 1 mal
vorhanden. Dann kommen 5 Leerspalten und wieder eine Überschrift. In Zeile 1 sind
weitere Daten Informationen zur Überschrift (zeit und Username) vorhanden. Ich
wollte nun die Tabellenüberschriften + Zeit und User in eine Reihe der Listbox
anzeigen.
Hab alle Möglichkeiten mit additem, list.listcount ausprobiert und erhalte immer
wieder Fehlermeldungen.
Bei dieser Variante erhalte ich einen Laufzeitfehler 424 Objekt erforderlich...
Me.StartUpPosition = 0
With Application
xLeft = .Left + .Width / 2 - Me.Width / 2
xTop = .Top + .Height / 2 - Me.Height / 2
End With
With Me
.Left = xLeft
.Top = xTop
End With
MultiPage1.Style = fmTabStyleNone
With Sheets("Referenzdaten")
LSpalte = .Cells(2, Columns.Count).End(xlToLeft).Column
For a = 1 To LSpalte
If Not IsEmpty(.Cells(2, a)) Then _
testCell.adress
With ListBox2
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = testCell.Value
.List(.ListCount - 1, 1) = testCell.Offset(-1, 0).Value
.List(.ListCount - 1, 2) = testCell.Offset(-1, 4).Value
.ColumnWidths = "2.5cm;1cm;1cm"
End With
Next a
End With
Und bei dieser Variante erhalte ich einen Laufzeitfehler 438:
"Objekt unterstützt Eigenschaft oder Methode nicht"
In den Eigenschaften der Box habe ich
ColumnCount von 1 auf 3 gestellt.
With Sheets("Referenzdaten")
LSpalte = .Cells(2, Columns.Count).End(xlToLeft).Column
For a = 1 To LSpalte
If Not IsEmpty(.Cells(2, a)) Then _
UfGlobaleEinstellung.ListBox2.AddItem .Cells(2, a).Value & _
UfGlobaleEinstellung.ListBox2.List(.ListCount - 1, 1) = a.Offset(-1, 0).Value & _
UfGlobaleEinstellung.ListBox2.List(.ListCount - 1, 2) = a.Offset(-1, 4).Value
Next a
End With
Würd mich freuen, wenn Ihr mir hier helfen könntet.
Danke Euch...