Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrspaltige Listbox

mehrspaltige Listbox
26.08.2019 10:32:34
mensi
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...


		

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
dreifach
26.08.2019 10:46:21
Torsten
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige