Hallöchen,
ich brauche mal wieder Hilfe: mit diesem Code will ich den Wert in der ListBox manipulieren. Soweit so gut, zumindest für den Wert in der ersten Spalte und TextBox aber der zweite Wert reagiert nicht. Spreche ich die zweite Spalte und TextBox verkehrt an?
Freue mich über Feedback.
Spoiler anzeigen
ich brauche mal wieder Hilfe: mit diesem Code will ich den Wert in der ListBox manipulieren. Soweit so gut, zumindest für den Wert in der ersten Spalte und TextBox aber der zweite Wert reagiert nicht. Spreche ich die zweite Spalte und TextBox verkehrt an?
Freue mich über Feedback.
VB.NET-Quellcode
- Private Sub btn_speichern_Click()
- Set wks = ThisWorkbook.Worksheets("Raum")
- With wks
- If lb_raum.ListIndex = -1 Then
- MsgBox ("Es wurde kein Raum zum Ändern ausgewählt."), vbExclamation
- Else
- lZeile = .Columns(1).Find(lb_raum.List(lb_raum.ListIndex, 0), , xlValues).Row
- .Cells(lZeile, 1) = tb_raum.Text
- lZeile = .Columns(2).Find(lb_raum.List(lb_raum.ListIndex, 1), , xlValues).Row
- .Cells(lZeile, 2) = tb_kurzform.Text
- End If
- End With
- End Sub