278: Excel-VBA: Einen ListView durch einen Array befüllen, formatieren und "richtig" sortieren

[@jur4eg1]

Hallo. Ein sehr tolles Video, vielen Dank dafür.
Ich habe eine Frage dazu. Ich habe eine intelligente Tabelle mit 26 Spalten und aktuell 720 Zeilen. Ich möchte die LV so befühlen, dass ich nur bestimmte spalten sehen kann. Z.B. Spalten 1,2,4,6,7,8,9,12,19,20,21,22,24 und 25 sollen sichtbar sein und der Rest ist für die LV unwichtig. Dazu sind die Breiten der einzelne Spalten unterschiedlich. Wie kann man das organisieren?

[@vba-kracherheld-office]

sowas in der Art?
Sub SpaltenAnzeigenAusblenden()
Dim wksTab As Worksheet
Dim VarSpalten As Variant
Dim i As Integer

' Arbeitsblatt mit der Tabelle festlegen
Set wksTab = Tabelle1

' Array mit den Nummern der sichtbaren Spalten festlegen
VarSpalten = Array(1, 2, 4, 6, 7, 8, 9, 12, 19, 20, 21, 22, 24, 25)

wksTab.Columns.Hidden = True

' Sichtbare Spalten einblenden
For i = LBound(VarSpalten) To UBound(VarSpalten)
wksTab.Columns(VarSpalten(i)).Hidden = False
Next i

End Sub

[@chrisk.2957]

Danke erstmal für die tolle Idee!!!! Hier machst Du die Befüllung durch den Befehl "ListView1.ListItems.ListSubItems.Add , , varDat (lngZeile, lngSpalte)" . In einem anderen Video zur Befüllung (Nr.220) benutzt Du "ListView1.ListItems (lngZ).SubItems (2) = ...", also andere Syntax. Wieso der Unterschied? Vielen Dank

[@vba-kracherheld-office]

Hi Chris, ich möchte in meinen Videos immer verschiedene Varianten aufzeigen. vg bernd