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
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel, VBA
Deine List box wurde doch aus einem Bereich der Tabelle befüll worden, richtig.
Also gibt es keinen Grund danach zu suchen. Sondern verwende das Wissen darüber.
z.B:
A5 bis A20 befüllte deine Listbox.
A5 ist dann das ListenElement mit dem Index "0"
Also in deinem ChangeEvent der List Box folgenden Code.
Range("A" & ListBox.ListIndex + 5). Value = ListBox.List(Listbox.Listiindex)