Office: Listbox

Hallo!

Die Spaltenbreite einer ListBox soll automatisch angepasst werden. Dazu habe ich schon einen Code gefunden (http://www.ms-office-forum.net/forum...d.php?t=319991). Bei diesem wird jedoch die Überschriftenzeile ignoriert. Die Überschriftenzeile wird aber benötigt. Ich kann nicht herausfinden wie und weshalb die erste Zeile verschwindet.

Optimal wäre auch wenn die letzten beiden Spalten ganz klein oder sogar ausgeblendet wären, da ich dessen Inhalt nur zur internen Verarbeitung benötige.

Danke!

Gruß, René

:)

 

Hallo mumpel,
die Listbox im Eigenschaftenfenster einstellen Spalten die Du nicht benötigst kannst Du dort einfach mit 0; bzw. nur die Anzahl der gewünschten Spalten anzeigen lassen.
Das selbe sollte auch mit der Überschrift gehen..

 

Ich verstehe kein Wort. Welche Eigenschaft soll das sein?

 

Hallo,
bin leider Heute nicht grad oft hier..ist die Listbox in einem Userform oder in der Tabelle?
Ich hab angenommen es ist in einer Userform...

 

Hi Mumpel,

hier mal eine wesentlich einfachere Variante:

Gegeben: Listbox1
Werte der LB stehen in den Spalten A:C
Unterschiedliche Textlängen

Um nun die Spaltenbreiten der LB anzupassen, nutze ich die Width Eigenschaft der Tabellenspalte (da muss ich doch nicht jeden Eintrag einzeln durchgehen)

Folgender Code macht das dann für mich:
Code:

Klar, Bezüge noch anpassen, aber das traue ich Dir als Profi ja sowieso zu....*wink.gif*

 

Userform natürlich. *wink.gif*

Und deutlich schneller. Danke! Lässt sich auch eine Spalte ausklammern? Ich habe 8 Spalten in der Tabelle von denen ich Spalte 6 in der Listbox benötige (In Spalte 6 werden die Anhänge gelistet).

 

Zumindest indirekt. Ausklammern nicht wirklich, eher ausblenden, indem die Spaltenbreite auf 0 gesetzt wird.

Code:

Wie jetzt? Du brauchst nur Spalte 6? Also eine Spalte? Na, dann ist es ja noch einfacher. Da brauchst Du keine ColumnCount, nimmst einfach nur die Spalte 6... also, ganz normale LB.

Also so (für Spalte 4 = D):
Code:

 

Da habe ich mich verschrieben. Ich brauche Spalte 6 nicht. Die anderen benötige ich.

Aber leider funktioniert der Code von 11:48 Uhr auf meinem Desktop-Rechner nicht (auf dem Surface hat es funktioniert). Ich bekomme in Zeile "ListBox1.RowSource = ActiveSheet.UsedRange.Address" die Meldung "Eigenschaft RowSource konnte nicht gesetzt werden. Mitglied nicht gefunden"

Auf 0 setzen kann ich die Spalte nicht da ja der Inhalt trotzdem vorhanden ist. Bei mehreren Anhängen wäre die Zeile in der Listbox zu hoch. Es sollte aber einzeilig bleiben. An die letzte Position in der Tabelle kann/möchte ich die Spalte nicht unbedingt setzen.

 

...kann Dir gerade nicht folgen..

Eine einzeilige Listbox?

Trau ich mich jetzt gar nicht zu fragen.... heißt Deine Listbox auch Listbox1?

Im Anhang mal ein Beispiel mit Anzeige unterschiedlicher Anzahl von Spalten...

 

Ich meinte Zeilen je Eintrag. Da die Namen der Anhänge bei mehreren Anhängen aus Gründen der Lesefreundlichkeit mehrzeilig sind, nicht alle Namen in einer Zeile, könnte das in der Listbox eher stören. Ich habe es noch nicht ausprobiert ob die Zeilenumbrüche der Zellen in der ListBox automatisch entfernt werden.

Der Fehler lag wohl daran dass eine leere Zelle markiert war. "UsedRange" heisst doch eigentlich "nur beschriebene/genutzte Zellen", und nicht "ab der markierten Zelle", dachte ich jedenfalls immer.

 

Problem gelöst. Zellinhalte werden wohl immer einzeilig im Listenfeld angezeigt. Da kann man die Spalte problemlos ausblenden. Danke an die Helfer!