Guten Morgen.

ich habe in einer Userform über eine Listbox meine Werte auslesbar gemacht.

Ich kann über die Listbox die richtigen Werte der ausgewählten Zeile in die richtigen textboxen einfügen um so alle Daten korrekt in der Userofrm anzeigen zu können.

Jetzt würde ich gerne wenn ich dort etwas ändere oder bspw in eine texbox die noch leer war jetzt etwas reinschreibe, dass sich die Werte in der Zeile ändern bzw die alten Werte überschrieben werden. Leider fehlt mir hierfür die zündende Idee

Neue Personen anlegen mache ich beim dem Klick anlegen mit:

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Vorlage_Personal")
Dim last_Row As Long
last_Row = Sheets("Vorlage_Personal").Range("A" & Rows.Count).End(xlUp).Row

sh.Range("A" & last_Row + 1).Value = "=Row() -1"
sh.Range("A" & last_Row + 1).Value = Me.TextBox_Name.Value
sh.Range("B" & last_Row + 1).Value = Me.TextBox_Vorname.Value
sh.Range("C" & last_Row + 1).Value = Me.TextBox_PID.Value
sh.Range("D" & last_Row + 1).Value = Me.TextBox_Datum.Value
If OptionButton1.Value = True Then sh.Range("E" & last_Row + 1).Value = "m"
If OptionButton2.Value = True Then sh.Range("E" & last_Row + 1).Value = "W"
If OptionButton3.Value = True Then sh.Range("F" & last_Row + 1).Value = "x"
If OptionButton4.Value = True Then sh.Range("G" & last_Row + 1).Value = "x"
If OptionButton5.Value = True Then sh.Range("H" & last_Row + 1).Value = "x"
If CheckBox_K = True Then sh.Range("I" & last_Row + 1).Value = "x"
If CheckBox_S = True Then sh.Range("J" & last_Row + 1).Value = "x"
If CheckBox_B = True Then sh.Range("K" & last_Row + 1).Value = "x"
If CheckBox_BR = True Then sh.Range("L" & last_Row + 1).Value = "x"
sh.Range("M" & last_Row + 1).Value = Me.TextBox_EM.Value
sh.Range("N" & last_Row + 1).Value = Me.TextBox_ZO.Value
If CheckBox_TR = True Then sh.Range("O" & last_Row + 1).Value = "Ja"

call refresh

leider klappt das nicht so ähnlich um etwas zu ändern

Danke für Eure Ideen und Tipps bei der Umsetzung