Hallo ich habe mal eine Rückfrage,
ich verwende ein Listobject und das scheint bei diesem Befehlt nicht korrekt angesprochen zu werden.
zu Bild1: ich wähle das Element in der ListBox aus
zu Bild2: ich trage in die TextBox etwas ein und klicke den Button "btn_save"
zu Bild3: und hier stellt sich meine Frage. Anstatt in die Zeile die ich ausgewählt habe zu speichern, wird das Element in die erste freie Zeile gesetzt.
Wie kann ich das korrigieren? (Anbei auch ein Upload) Freue mich über Feedback.
Orientierung: Form "frmRaum", Button "btn_save" "Speichern", Zeile 103.
ich verwende ein Listobject und das scheint bei diesem Befehlt nicht korrekt angesprochen zu werden.
zu Bild1: ich wähle das Element in der ListBox aus
zu Bild2: ich trage in die TextBox etwas ein und klicke den Button "btn_save"
zu Bild3: und hier stellt sich meine Frage. Anstatt in die Zeile die ich ausgewählt habe zu speichern, wird das Element in die erste freie Zeile gesetzt.
Wie kann ich das korrigieren? (Anbei auch ein Upload) Freue mich über Feedback.
Orientierung: Form "frmRaum", Button "btn_save" "Speichern", Zeile 103.
VB.NET-Quellcode
- Private Sub btn_save_Click()
- tn = "Raum"
- Set C = Controls("lb_" & tn)
- Set wks = ThisWorkbook.Worksheets(tn)
- Set tbl = wks.ListObjects("dt_" & tn)
- With wks
- If C.ListIndex = -1 Then
- MsgBox ("Es wurde kein Raum zum Ändern ausgewählt."), vbExclamation
- Else
- bzeile = .Columns(2).Find(C.List(C.ListIndex, 1), , xlValues).Row
- .Cells(bzeile, 2) = tb_01.Text
- bzeile = .Columns(3).Find(C.List(C.ListIndex, 2), , xlValues).Row
- .Cells(bzeile, 3) = tb_02.Text
- End If
- End With
- With C
- .Clear
- .List = tbl.DataBodyRange.Value
- End With
- tb_01.SetFocus
- End Sub