Habe diesen Code im Forum gefunden und bei mir eingepflegt. Es funktioniert ausser, daß ich nicht alle 5 Spalten erhalte.
Private Sub Userform_activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.ColumnWidths = "3,5cm;6,0cm;4,0cm;4,0cm;4,0cm"
With Worksheets("Tabelle1")
Set rngSource = .Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 1).Resize(rngSource.Rows.Count - 1, rngSource. _
Columns.Count)
With Me.ListBox1
.ColumnCount = 5
.ColumnHeads = True
.RowSource = "Tabelle1!" & rngSource.Address
End With
End With
Set rngSource = Nothing
End Sub
Kann mir jemand den Code erklären was rngSource.Offset(1,1).resize bedeutet und warum auf A1 zurückgegriffen wird.
Dann kann oder versuche ich den Code ein wenig zu verstehen und anzupaßen.
Für Eure Hilfe wäre ich sehr dankbar.
Gruß
Peter