VBA Problem mit ListIndex?

Hallo zsm

ich habe folgendes Problem: Ich habe etwas in der ListBox geändert. Nun möchte ich es in die Tabelle übertragen.

Wie kriege ich das hin?

Private Sub Speichern_Click()
    With Worksheets("Datensatz").Range("B:O")
    ListenIndex = Me.ListBox1.ListIndex
    Set rngCell = .Find(ListenIndex, LookIn:=xlValues, lookat:=xlWhole)
        If Not rngCell Is Nothing Then
            rngCell.Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 1).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 2).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 3).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 4).Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 5).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 6).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 7).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 8).Text = Me.ListBox1.Column(4, lngZeile)
            rngCell.Offset(0, 9).Text = Me.ListBox1.Column(5, lngZeile)
            rngCell.Offset(0, 10).Text = Me.ListBox1.Column(6, lngZeile)
            rngCell.Offset(0, 11).Text = Me.ListBox1.Column(7, lngZeile)
            rngCell.Offset(0, 12).Text = Me.ListBox1.Column(8, lngZeile)
            rngCell.Offset(0, 13).Text = Me.ListBox1.Column(9, lngZeile)
        End If
    End With
End Sub
Microsoft Excel, VBA

Meistgelesene Fragen zum Thema Microsoft Excel