ListBox ColumnHeads

hallo Klaus,
ersteres:

With lst_Ergebnis
.ColumnCount = 5
.ColumnWidths = "20;50;30;10;50"

zweitens: dafür mußt du die Datenquelle der Listbox (aus
einer Tabelle) über die RowSource-Eigenschaft angeben.
Die Header sind dann die erste Zeile des Bereiches
(siehe zB http://tinyurl.com/2uxgv )

Gruß
stefan

-----Originalnachricht-----
Hallo NewsGroup,
kann ich folgendes Stückerle Code vereinfachen ?
Kann ich die Beschriftungen der ColumnHeads wie

eingeben ?

With lst_Ergebnis
.ColumnCount = 1
.ColumnWidths = 20
.ColumnCount = 2
.ColumnWidths = 50
.ColumnCount = 3
.ColumnWidths = 30
.ColumnCount = 4
.ColumnWidths = 10
.ColumnCount = 5
.ColumnWidths = 50
.ColumnHeads = True
End With
Vielen Dank sagt
Klaus
.

Klaus.Sperlich

2004-06-30 13:20:03 UTC

Hallo und Danke Stefan,
Spaltenbreite klappt prima !
Das mit den Spalten-Titeln klappt bei mir nicht, da ich die Daten in eine
ListBox auf einer UserForm eintrage und sie über einen SQL-Befehl aus einer
mdb-Datei hole (bei mir ist kein Access vorhanden!)
Klaus

"stefan onken" <***@discussions.microsoft.com> schrieb im Newsbeitrag news:2369601c45ea0$503a41b0$***@phx.gbl...
hallo Klaus,
ersteres:

With lst_Ergebnis
.ColumnCount = 5
.ColumnWidths = "20;50;30;10;50"

zweitens: dafür mußt du die Datenquelle der Listbox (aus
einer Tabelle) über die RowSource-Eigenschaft angeben.
Die Header sind dann die erste Zeile des Bereiches
(siehe zB http://tinyurl.com/2uxgv )

Gruß
stefan

Klaus.Sperlich

2004-06-30 13:24:39 UTC

gleich als Anhang die nächste Frage:
Ich habe eine ComboBox auf einem UserForm und möchte nach dem Auswaählen
einer Zeile ein Ereignis auslösen
Wie geht das? Irgendwie scheine ich schon alle Möglichkeiten von AfterUpdate
bis MouseUp durchprobiert zu haben
Klaus

stefan onken

2004-06-30 13:50:48 UTC

hallo Klaus,
ohne Bezug auf eine Tabelle mußt du mE die
Spaltenüberschriften der Listbox mit zB Labels basteln.

Eigentlich müßte eine Änderung in der Combobox das
Ereignis ComboBox_Change auslösen (es sei denn, du wählst
einen bereits markierten Eintrag erneut aus).
Testen könntest du auch ComboBox1_DropButtonClick.

Gruß
stefan

-----Originalnachricht-----
Ich habe eine ComboBox auf einem UserForm und möchte

nach dem Auswaählen

einer Zeile ein Ereignis auslösen
Wie geht das? Irgendwie scheine ich schon alle

Möglichkeiten von AfterUpdate

bis MouseUp durchprobiert zu haben
Klaus
.

Melanie Breden

2004-06-30 19:08:46 UTC

Hallo Klaus,

Post by Klaus.Sperlich
Das mit den Spalten-Titeln klappt bei mir nicht, da ich die Daten in eine
ListBox auf einer UserForm eintrage und sie über einen SQL-Befehl aus einer
mdb-Datei hole (bei mir ist kein Access vorhanden!)

mit dem 'Microsoft ListView Control' kannst du die Spaltenüberschriften einzeln setzen.
Binde es in der Werkzeugliste über Extras | zusätzliche Steuerelemente ein.

Da es wenig bekannt ist, hier ein kleiner Beispielcode von Peter Haserodt:

Private Sub CommandButton1_Click()
Dim oL As ListItem

With ListView1
.View = lvwReport
.ColumnHeaders.Add 1, "P1", "Test 1"
.ColumnHeaders.Add 2, "P2", "Test 2"
' Zum Füllen
' Variante 1
Set oL = .ListItems.Add(, "L1", "Hallo")
oL.SubItems(1) = "neu"
Set oL = Nothing
' Variante 2
.ListItems.Add , "L2", "bb"
.ListItems("L2").SubItems(1) = "Ich bins"
' Variante 3
.ListItems.Add , , "Ohne Key1"
.ListItems(3).SubItems(1) = "Bei ohne Key1"
.ListItems.Add , , "Ohne Key2"
.ListItems(4).SubItems(1) = "Bei ohne Key2"
End With
End Sub

Schau auch mal auf deinem System nach den folgenden Hilfedateien zum Thema:
COMCTL1.HLP
COMCTL2.HLP

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Klaus.Sperlich

2004-07-01 12:25:03 UTC

Post by Melanie Breden
Hallo Klaus,

mit dem 'Microsoft ListView Control' kannst du die Spaltenüberschriften einzeln setzen.
Binde es in der Werkzeugliste über Extras | zusätzliche Steuerelemente ein.

Hallo zurück,

geht leider nicht. ListView gipps doch IMHO nur unter VB ...
Klaus

Melanie Breden

2004-07-01 12:28:51 UTC

Hallo Klaus,

Post by Melanie Breden
mit dem 'Microsoft ListView Control' kannst du die Spaltenüberschriften einzeln setzen.
Binde es in der Werkzeugliste über Extras | zusätzliche Steuerelemente ein.

Hallo zurück,
geht leider nicht. ListView gipps doch IMHO nur unter VB ...

ich würde dir diese Möglichkeit nicht anbieten, wenn ich es nicht bereits
mit Excel VBA durchgeführt hätte ;-)

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Klaus.Sperlich

2004-07-02 07:29:37 UTC

Post by Klaus.Sperlich
geht leider nicht. ListView gipps doch IMHO nur unter VB ...

ich würde dir diese Möglichkeit nicht anbieten, wenn ich es nicht bereits
mit Excel VBA durchgeführt hätte ;-)

(noch humbliger gefragt ;-) ;-)) :
wo hole ich mir unter VBA denn ein ListView her ???
Klaus

Melanie Breden

2004-07-02 08:27:09 UTC

Hallo Klaus,

Post by Klaus.Sperlich
geht leider nicht. ListView gipps doch IMHO nur unter VB ...

ich würde dir diese Möglichkeit nicht anbieten, wenn ich es nicht bereits
mit Excel VBA durchgeführt hätte ;-)

wo hole ich mir unter VBA denn ein ListView her ???

ich habe noch VB installiert, vermutlich habe ich deswegen diese
Elemente in der Liste der zusätzlichen Steurelementen zur Auswahl.

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Thomas Ramel

2004-07-02 08:41:19 UTC

Grüezi Melanie und Klaus

Melanie Breden schrieb am 02.07.2004

Post by Klaus.Sperlich
wo hole ich mir unter VBA denn ein ListView her ???

ich habe noch VB installiert, vermutlich habe ich deswegen diese
Elemente in der Liste der zusätzlichen Steurelementen zur Auswahl.

Ich hab einen 'sauberen' VB-freien Rechner und finde 'ListView' ebenfalls
als zusätzliches Steuerelement angeboten - sowohl in der
Steuerelemente-Toolbox, als auch in der Werkzeugdammlung der Userforms in
VBA.

Bei mir sind sogar 2 Versionen vorhanden: 5.0(SP-2) und 6.0.

Da fällt mir gerade ein, dass ich eine Applikaiton installiert habe, die
auf Access basiert und bei der Installation einige ActiveX-Komponenten
mitbringt - möglicherweise stemmen die Listviews auch von dort...

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win XP Pro SP-1 / xl2000 SP-3]

stefan onken

2004-07-02 08:39:32 UTC

hi Melanie und Klaus,
auf meinem PC (WinXP; OfficeXP) ist/war kein VB
installiert und ich finde trotzdem das Control.

Gruß
stefan

-----Originalnachricht-----
Hallo Klaus,

Post by Klaus.Sperlich
geht leider nicht. ListView gipps doch IMHO nur

unter VB ...

Post by Melanie Breden
ich würde dir diese Möglichkeit nicht anbieten, wenn

ich es nicht bereits