With Me.ListView1
.HideColumnHeaders = False
.View = lvwReport
End With
Dim wksh As Worksheet
Dim rngdata As Range
Dim ringcell As Range
Dim listitem As listitem
Dim rowcount As Long
Dim colcount As Long
Dim i As Long
Dim j As Long
Set wksh = Worksheets("Daten")
Set rngdata = wksh.Range("A1").CurrentRegion
For Each rngcell In rngdata.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=rngcell.Value, Width:=50
Next rngcell
rowcount = rngdata.Rows.Count
colcount = rngdata.Columns.Count
For i = 2 To rowcount
Set listitem = Me.ListView1.ListItems.Add(Text:=rngdata(i, 1).Value)
For j = 2 To colcount
listitem.ListSubItems.Add Text:=rngdata(i, j).Value
Next j
Next i
ListView1.SortKey = 0
ListView1.Sorted = False