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