|
Hallo zusammen,
ich habe einen Code im Netz gefunden, habe ihn soweit verändert dass er statt 3 Spalten 7 anzeigt, jedoch erscheint nur die Überschrift in meiner UserForm, aber nicht die Zellen aus der 4. Spalte. Kann mir jemand helfen wo der Fehler ist?
Ausgangslage ist, ich möchte in einer UserForm mit Hilfe ListView Werte einer Excel-Tabelle anzeigen lassen. Sicherlich eine kleine Sache, aber ich bin leider (noch) nicht so fit in VBA. Bin für jede Hilfe dankbar :)
Private Sub UserForm_Initialize()
Dim oItem As ListItem
Dim Daten(0 To 500, 3) As Variant
Dim i As Long
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("A1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("B1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("C1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("D1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("E1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("F1"), .Width / 3
.ColumnHeaders.Add , , Sheets("Tabelle1").Range("G1"), .Width / 3
.Gridlines = True
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Daten(i - 2, 0) = Cells(i, 1)
Daten(i - 2, 1) = Cells(i, 2)
Daten(i - 2, 2) = Cells(i, 3)
Daten(i - 2, 3) = Cells(i, 4)
Set oItem = .ListItems.Add(, , Daten(i - 2, 0))
oItem.SubItems(1) = Daten(i - 2, 1)
oItem.SubItems(2) = Daten(i - 2, 2)
Next
End With
End Sub
|