Office: Coloumnheads in Listbox beschriften

Hallo Zusammen,

nach Mehrstündiger Suche im Netz immer noch nichts gefunden, deshalb hier meine Anfrage:

Ich möchte eine Listbox mit insgesamt 14 Spalten über Makro befüllen. Das funktioniert auch einwandfrei.
Allerdings kann ich die "Columnheads" nicht beschriften.

Über "Rowsource" kann ich nur 9 beschriften, dann ist vorbei.

Hier Ausschnitte meines Codes (ohne Rowsource)
Dim arr(1 To 14, 1 To 100)
arr(1,1)="Nr."
arr(2,1)="Name"
usw.
weitere Felder werden über Abfragen und if - then - else gesteuert.

With ListBox1
.ColumnHeads = True
.ColumnCount = 14
.ColumnWidths = "1,5 cm;10 cm;2,5 cm;4,2 cm;6 cm;1,5 cm;1,5 cm;2,2 cm;2,8 cm;2 cm;3 cm; 2cm; 2cm;4 cm"
.Column = arr
end with

Kann mir jemand helfen die Columnheads zu beschriften?

Danke vom Prinz senior

:)

 

Wenn du mehrere Stunden erfolglos gesucht hast, solltest du deine Suchmaschinenbedienskills erweitern *biggrin.gif*

http://www.vbaexpress.com/forum/show...s-to-a-ListBox
Siehe Beitrag Nr. 8 von snb, da macht er genau das, was du möchtest. Nur zur Info: Der Button im Tabellenblatt funktioniert nicht, du musst über den VBA-Editor reingehen.

Bei weiteren Fragen bitte direkt an snb wenden.

 

Hi Bernie, danke erstmal für die Antwort und den Verweis auf meine Skills!

Leider funktioniert das bei mir nicht, auch wenn ich über den Editor rein gehe.

Habe keine Ahnung, was snb damit macht, da ich mit der UF nichts anfangen kann.

Vielleicht hat noch jemand eine andere Idee?

 

Hallo,

...nö...*cool.gif*

Gruß, Muller2

 

Jetzt wo Muller2 das so sagt - stimmt... warum machst du nicht einfach
Code:

 

Hi Berni,

weil die Felder nicht direkt aus einer Tabelle gefüllt werden, sondern abhängig von den Zellwerten. In den Zellwerten stehen Datumsangaben (Wiedervorlagen), die je nach Fälligkeit einen anderen Wert ergeben und so anderen Personen zugeordnet werden.


Da mehrere Personen auf die Grunddaten zugreifen ändern sich praktisch minütlich die Wiedervorlage-Daten und anzeigen


Eigentlich wollte ich keine extra Seite (in der Datendatei) haben, auf der diese Werte länger gespeichert werden.


Und das geht mit "Range" nicht ...

Andere Idee:

Kann man die Werte der Scrollbars in der Listbox per VBA anzeigen / steuern lassen?
Damit wäre es möglich diese über ein externes Feld oder externe Scrollbar zu steuern, und auch gleichzeitig eine Listbox, die die Überschriften enthält.

Danke schon mal ....

 

Hallo,

das wäre ein Ansatz, allerdings gibt es kein Event für die horizontalen Scrollbars der ListBox in VBA noch kann man deren Werte auslesen, Du würdest also neben einer externen Scrollbar eine weitere Listbox oder einen Frame benötigen, in diese packst Du Deine eigentl. ListBox und zusätzl. noch die Listbox mit den Überschriften bzw. einzelne Textboxen und verschiebst dann das ganze Konstrukt innerhalb des Frames abhängig von den Scrollbarwerten der ext. Scrollbar über deren Events in die jeweil. horizontl. Richtung....*cool.gif*

...Oder Du bleibst doch besser bei Deinem TabBlatt + Range-Ansatz...*grins

Gruß, Muller2