Office: Listbox mit Array befüllen,bearbeiten &zurückschreiben

Guten Abend

Ich bin ein Laie und habe mich in letzter Zeit mit einem Projekt ins VBA eingearbeitet.

Nun scheitere ich aber an den Arrays in Kombination mit dynamischen Tabellen (.listobjects)

Ich habe als Beispiel eine "Adressverwaltung" kreiert, wenn jemand ein klein wenig Geduld aufbringen könnte, um sie mir verständlich zu ergänzen(evt mit ergänzenden 'comments, wär das super *Smilie
*boah
Lese den DataBodyRange mittels Array in eine Userform.Listbox ein
und möchte diesen anschliessen mit einer Textbox filtern. (Vor-oder Nachname)
Wenn Eintrag aus Listbox angewählt, in Textboxen ausgeben & von diesen aus ändern oder löschen
wenn kein Eintrag vorhanden einen neuen Erstellen.

Falls der Aufwand für euch aber zu Gross ist, entschuldige ich mich dafür.

Danke schon im Voraus

Stefan

:)

 

Hi,

ich stelle mal den Code getrennt der Mappe zur Verfügung, da einige keine XLSM runterladen möchten.
Somit erreichst Du mehr Helfer.

Hinweis:
Ein Button auf dem ersten Blatt lädt die UserForm.

 

Du willst dich einarbeiten?

PHP:

         Private Sub ListBox1_Click()   'hier würde ich das change event nutzen
'Selektionierter Eintrag in Textboxen übertragen


if Listbox1.listindex >-1 then

Textbox1 = Listbox1.list(Listbox1.Listindex, 'hier passende Spaltennr
eintragen')
usw....
' Warum auch immer du Comboboxen für Vorame und Nachname '
'verwendest. Aber da wird es etwas umständlicher den passenden Eintrag,
'aus der hoffentlich vorhandenen Namensliste auszuwählen.
end  if

End Sub


 

Danke schon mal, die Comboboxen brauch ich eigentlich nicht mehr, das war vom ersten Versuch, bei dem ich die Comboboxen mit Schleifen gefüllt habe.

Das Change event hab ich auch schon ausprobiert, als ich die Listbox mit Listrow befüllte.

Hab mal sowas gesehen:
Code:

Aber das scheint irgendwie nicht zu funktionieren..
evt weil myTable der databodyrange einer Objectlists-Tabelle ist?

 

Naja, das ist auch ne Möglichkeit.

Du kannst aber auch meinen Vorschlag umsetzen. Für die paar Textboxen brauchts eigentlich kein extra Array mit den Namen deiner Textboxen in der richtigen Reihenfolge.

Ausserdem bleibt dein Code dann lesbarer. Deshalb habe ich auch auf das With Listbox1 verzichtet.

Bei deinem Beispiel sehe ich noch ein anderes Problem. Naja Problem ist vielleicht zu viel gesagt. In deinem Beispiel werden die Werte nicht aus der Listbox geholt, sondern aus der Tabelle. Ich bevorzuge die Verarbeitung der Listboxeinträge, statt auf die Tabelle zuzugreifen. Schließlich wurden die Werte aus der Tabelle geholt und in myArray geschoben. Dann erst in die Listbox und sind somit nicht mehr mit der Tabelle verknüpft. Ein Verbindung bleibt glaube ich nur wenn du per rowsource die Tabellenwerte an die Listbox bindest.

So, jetzt kannst du es erstmal umsetzen. Bis denne.