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: Fehler bei welcher Codezeile ? (owT) von: EtoPHG
Geschrieben am: 26.08.2019 12:05:54




  

Betrifft: AW: Fehler bei welcher Codezeile ? (owT) von: mensi
Geschrieben am: 26.08.2019 15:25:57

Hi Eto,

im ersten Code bei

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  

ab hier nicht mehr.


Und im zweiten Versuch
mit Laufzeitfehler 438 (Objekt unterstützt Eigenschaft oder Methode nicht)
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




  

Betrifft: AW: Fehler bei welcher Codezeile ? (owT) von: mensi
Geschrieben am: 26.08.2019 15:40:46

Nochmal Hallo Zusammen,

sorry übrigens für die Mehrfacheinträge, das war keine Absicht...

hab jetzt mal die Zeilen

'UfGlobaleEinstellung.ListBox2.List(.ListCount - 1, 0) = a.Offset(-1, 0).Text
'UfGlobaleEinstellung.ListBox2.List(.ListCount - 1, 1) = a.Offset(-1, 4).Text

ausgeklamert. Siehe da dann funktioniert die Auflistung in der Box.

Irgendwie kommisch... und ich bin ratlos und brauch eure Hilfe..


  

Betrifft: AW: Fehler bei welcher Codezeile ? (owT) von: mensi
Geschrieben am: 28.08.2019 11:53:16

Hallo zusammen,

Hab zwar im anderen Beitrag zum gleichen Thema reingekommen ist (ein paar Stunden später) versucht die Lösungen bei mir umzusetzten... leider ohne Erfolg...


hat keiner eine Idee ?


  

Betrifft: Bitte Beispielmappe mit Fehler hochladen! (owT) von: EtoPHG
Geschrieben am: 28.08.2019 14:26:38




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