Inhalt der UserForm in Excel übertragen
susa
ich möchte gerne eine Tabelle mit einer Eingabemaske bearbeiten. dafür habe ich eine Userform mit 2 Multipages gestaltet.
Auf der Multipage1 befindet sich eine ListBox1, in der die ExcelTabelle abgebildet ist. Markiert man dort eine Zeile (zB. Zeile 7) und schreibt nun in die TextBox5 eine Bemerkung. So soll bei dem Ereignis cmd Speichern Click(), der Inhalt der TextBox5 in die jeweilige Zelle übertragen werden ( in diesem Fall: E7)
Ich habe diesen Code eingegeben:
Private Sub cmdSpeichern_Click()
Dim lngRow As Long
With Me.MultiPage1.ListBox1
lngRow = CLng(ListBox1.List(ListBox1.ListIndex, 0))
Cells(lngRow, 5).Value = TextBox5.Text
End With
End Sub
Leider kommt bei mir die Fehlermeldung :2110 Fokus kann nicht auf Steuerelement gesetzt werden.
https://www.herber.de/bbs/user/81328.xls
Jetzt schon einmal Vielen Dank!
Anzeige