Update Werte in Listenfeld
03.10.2015 23:06:33
Ingo
Ich habe ein Listenfeld in einem Userform, welche per doppelklick ein neues Userform öffnet und die Werte der aktuellen Datenreihe in Textfelder dieses einträgt:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With frmTerminBearbeiten
.lblKontaktDetails.Caption = Worksheets("Adressliste").Cells(ActiveCell.Row, 2) & "|"
.txtTitel.Text = ListBox1.List(ListBox1.ListIndex, 2)
End With
frmTerminBearbeiten.Show
' Unload Me
End Sub
Nun versuche ich auf diesem neuem Userform, das sich mit den Werten geöffnet hat Werte per Updateschaltfläche wieder ins Userform mit dem Listenfeld zurückzuschreiben:
mein bisheriger Versuch:
Public Sub cmdUpdateTermin_Click()
frmTermin.ListBox1.List(1) = Me.txtTitel.Value
End Sub
Ich erhalte Leider immer die Fehlermeldung "Eingenschaften Liste konnte nicht gesetzt werden - Zugriff verweigert...
Habt Ihr eine Idee? Vielen Dank