Dabei sollen in der Listbox 1 Daten aus ausgwählten Spalten der Tabelle "Regelungsverzeichnis" angezeigt werden.
Der jetzige Ablauf ist so. Der Eintrag von additem wird angezeigt. Der nächste Eintrag ergibt eine Fehler meldung, die mir nicht weiterhilft. Wer kann mir helfen, dass ich in der Listbos in mehreren Spalten die ausgewählten Daten angezeigt bekomme.
Private Sub UserForm_Initialize()
Dim tbldaten As Worksheet
Set tbldaten = Worksheets("Regelungsverzeichnis")
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With UserForm1
.ListBox1.Clear
tbldaten.Activate
i = 1
For lng = 7 To ActiveSheet.UsedRange.Rows.Count
.ListBox1.AddItem Cells(lng, 3).Value
.ListBox1.Column(2, i) = Cells(lng, 1).Value
'.ListBox1.Column(3, i) = Cells(lng, 5).Value
'.ListBox1.Column(4, i) = Cells(lng, 6).Value
'.ListBox1.Column(5, i) = Cells(lng, 11).Value
Next
End With
End Sub
Danke für Eure Hilfe
Gruß
Bernd Cramer