mit folgendem Code lese ich Daten aus einer Tabelle in eine mehrspaltige Listbox ein:
Private Sub UserForm_Activate()
Worksheets("Jahrestabelle").Activate
arrIN = Sheets("Jahrestabelle").Range("D5:F1000")
Änderung!Personalien.List = arrIN
End Sub
und übergebe sie mit folgendem Code an mehrere TextboxenPrivate Sub UserForm_Activate()
Veränderungen.FN = Änderung.Personalien.List(Änderung.Personalien.ListIndex, 0)
Veränderungen.VN = Änderung.Personalien.List(Änderung.Personalien.ListIndex, 1)
Veränderungen.GD = Änderung.Personalien.List(Änderung.Personalien.ListIndex, 2)
End Sub
Es werden folgende Daten aus der Tabelle ausgelesen ggf. noch mehr:Name, Vorname, Geburtsdatum...
Die Namen können mehrfach vorkommen (soll auch so sein). Was ich jetzt erreichen möchte ist folgendes. Wurde zu einem Namen z.B. das Geburtsdatum falsch erfasst dann möchte ich den entsprechenden Datensatz in meiner Listbox auswählen, an die Textboxen übergeben (das klappt auch schon), dort ändern und dann wieder in die Tabelle zurück schreiben.
In der Tabelle müsste dann halt der falsch erfasste Datensatz ersetzt bzw. überschrieben werden.
Ich hab keine Ahnung ob das geht und vor allem wie. Meine Vorstellung wäre, dass die Einträge in der Listbox mit Fundstelle (sprich Zeilennummer) gespeichert werden und anschließend die geänderten Daten dann wieder an diese Zeilennummer der Tabelle übergeben werden.
Gruß Werner