Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen

mehrspaltige Listbox


Betrifft: mehrspaltige Listbox von: mensi
Geschrieben am: 26.08.2019 10:32:33

Hallo Zusammen,

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...


  

Betrifft: doppelt! owt von: Torsten
Geschrieben am: 26.08.2019 10:46:04




Beiträge aus dem Excel-Forum zum Thema "mehrspaltige Listbox"