Einzelne Listboxspalten ausblenden (VBA)
Hi,
was du brauchst, ist nicht Listbox.ColumnWidth, sondern Listbox.ColumnWidths
Die Breiten (Plural!) der einzelnen Spalten werden ja in der Entwurfsansicht des Formulars mit der Eigenschaft "Spaltenbreiten" bestimmt. Das ist ein String, der ungefähr so aussehen kann:
4cm;3cm;2cm;1cm;3cm;2cm;1cm
Eine einzelne Spalte kannst du ganz einfach ausblenden, indem du die Breite auf "0cm" setzt. Du könntest also auf dem Formular Umschaltflächen die den String manipulieren. Würde es nur um eine einzige Spalte gehen, wäre das hier die Lösung:
Private Sub Umschaltfläche_AfterUpdate() If Me.Umschaltfläche = True Then Me.Liste.ColumnWidths = "4cm;3cm;2cm" Else Me.Liste.ColumnWidths = "4cm;0cm;2cm" End If End Sub
In deinem Fall wird es minimal aufwendiger, weil du sieben Umschaltflächen brauchst, und wenn eine davon gedrückt wird, musst du jeweils den aktuellen Status aller sieben Umschaltflächen abfragen. Aber das solltest du hinbekommen
Martin
gesamter Thread:
- Einzelne Listboxspalten ausblenden -
Neuling001,
30.05.2020, 10:46
- Einzelne Listboxspalten ausblenden -
Martin Asal,
01.06.2020, 19:32
- Einzelne Listboxspalten ausblenden - Neuling001, 02.06.2020, 21:13
- Einzelne Listboxspalten ausblenden -
Martin Asal,
01.06.2020, 19:32