Update Werte in Listenfeld

• Update Werte in Listenfeld von Ingo vom 03.10.2015 23:06:33
• AW: Update Werte in Listenfeld - von Hajo_Zi am 04.10.2015 09:18:39
  • AW: Update Werte in Listenfeld - von Ingo am 04.10.2015 11:49:05
    • AW: Update Werte in Listenfeld - von Hajo_Zi am 04.10.2015 11:56:46
      • AW: Update Werte in Listenfeld - von Ingo am 04.10.2015 12:20:00
        • AW: Update Werte in Listenfeld - von Hajo_Zi am 04.10.2015 12:21:58
        • AW: Update Werte in Listenfeld - von Tino am 04.10.2015 12:54:02

Betrifft: Update Werte in Listenfeld
von: Ingo
Geschrieben am: 03.10.2015 23:06:33

Hallo,
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

Betrifft: AW: Update Werte in Listenfeld
von: Hajo_Zi
Geschrieben am: 04.10.2015 09:18:39
ich würde mal vermute, bei Übergabe hast Du Zeile und Spalte und bei schreiben nur Zeile.
Ich baue kein Beispiel nach.

Betrifft: AW: Update Werte in Listenfeld
von: Ingo
Geschrieben am: 04.10.2015 11:49:05
Hallo Hajo,
vielen Dank für deinen Tipp.!
Ja stimmt beim Update übergebe ich ja bis jetzt nur die Zeilen-Koordinate
Versuche jetzt so das Update zu realisieren:
frmTermin.ListBox1.List(ListBox1.ListIndex, 2) = frmTerminBearbeiten.txtTitel.Value
leider kommt noch eine Fehlermeldung "Objekt erforderlich".
Einen schönen Sonntag zusammen :)

Betrifft: AW: Update Werte in Listenfeld
von: Hajo_Zi
Geschrieben am: 04.10.2015 11:56:46
was hat ListBox1.ListIndex in der aktuellen UserForm mit der anderen Userform frmTermin zu tun?
Gruß Hajo

Betrifft: AW: Update Werte in Listenfeld
von: Ingo
Geschrieben am: 04.10.2015 12:20:00
Ich habe ja ein frmTermin Userform mit der Listbox...
wenn ich einen Doppelklick auf die Listbox im Userform frmTermin mache öffnet sich ein neues Userform frmTerminBearbeiten auf der die Daten erfolgreich in Textfeldern übertragen werden.
Auf dem frmTerminBearbeiten befindet sich ein Update Button mit dem ich vom frmTerminBearbeiten Form ein Update in das Listenfeld von frmTermin zurückschreiben möchte.
Daher mein aktueller Gedanke zum Update Button auf dem frmTerminBearbeiten Userform:

Public Sub cmdUpdateTermin_Click()
frmTermin.ListBox1.List(ListBox1.ListIndex, 2) = frmTerminBearbeiten.txtTitel.Value
End Sub

Hoffe man kann das jetzt besser verstehen...
Danke

Betrifft: AW: Update Werte in Listenfeld
von: Hajo_Zi
Geschrieben am: 04.10.2015 12:21:58
gut meine Frage möchtest Du nicht beantworten. Gut ich kann damit Leben. Ich bin dann raus.
Gruß Hajo

Betrifft: AW: Update Werte in Listenfeld
von: Tino
Geschrieben am: 04.10.2015 12:54:02
Hallo,
nicht getestet, fehlt bei ListBox1.ListIndex evtl. die Userform frmTermin?
Gruß Tino

Beiträge aus den Excel-Beispielen zum Thema "Update Werte in Listenfeld"