Microsoft Excel

Herbers Excel/VBA-Archiv

Listview flexible ColumnHeaders


Betrifft: Listview flexible ColumnHeaders
von: Ludmila
Geschrieben am: 15.04.2019 06:46:25

Hallo,

in meiner Userform ListView lese ich die ColumnHeaders ab Spalte 16 und 21 bis ?
ein.
Wie schaffe ich es das die ListItems().SubItems() ebenfalls eigelesen werden.
Leider bekomme ich immer wieder Fehlermeldungen.
Danke!
Gruß
Ludmila

http://www.herber.de/bbs/user/129147.xlsm

  

Betrifft: AW: Listview flexible ColumnHeaders
von: Luschi
Geschrieben am: 15.04.2019 08:18:42

Hallo Ludmila,

bei mir klappt das so:

Private Sub CommandButton2_Click()

Dim i As Integer
Dim lxl As Long
Dim wksP As Worksheet
    Dim lol As Long, x As Integer, y As Integer, z As Integer
    Set wksP = ThisWorkbook.Worksheets("Proj")
x = 2
z = 2
       With UserForm1.ListViewAusw
            .ColumnHeaders.Clear
            .ListItems.Clear
            .Gridlines = True
            .View = 3
            .ColumnHeaders.Add 1, , wksP.Cells(1, 16), wksP.Columns(16).Width
              For lxl = 21 To wksP.Cells(1, wksP.Columns.Count).End(xlToLeft).Column
                .ColumnHeaders.Add x, , wksP.Cells(1, lxl), wksP.Columns(lxl).Width
                 x = x + 1
            Next lxl
            For lol = 2 To wksP.Cells(Rows.Count, 16).End(xlUp).Row
                .ListItems.Add , , wksP.Cells(lol, 16)
                For lxl = 21 To wksP.Cells(lol, wksP.Columns.Count).End(xlToLeft).Column
                    y = y + 1
                    'z ist die 1. Zeilen-Nr., wird aber benutzt für den Zeilenindex der  _
ListView!
                   .ListItems(z - 1).SubItems(y) = Format(wksP.Cells(lol, lxl), "#,##0.00")
                Next lxl
                y = 0       'wichtig
                z = z + 1   'stand an der falschewn Stelle!
            Next lol

        End With
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Listview flexible ColumnHeaders
von: Ludmila
Geschrieben am: 15.04.2019 11:21:21

Hallo Luschi,

Danke sehr bei funktioniert es jetzt auch.

Gruß
Ludmila