Hallo,
ich habe eine Userform die beim initialize eine listbox öffnet mit allen Inhalten aus der entsprechenen Tabelle.
Jetzt kann man durch Doppelklick in der Listbox die Inhalte der jeweiligen Zeile auslesen, diese werden dann alle sortiert und in die jeweilige Textbox übergeben. Zu jedem Inhalt in der Zeile wird automatisch eine laufende Nummer generiert um so klar die Zeilen zu definieren.
Jetzt möchte ich, wenn man durch Doppelklick die richtige Zeile mit dem Inhalt gewählt hat, den Inhalt der bspw. TextBox_Name ändert von Mustermann auf Musterfrau und dann auf den Button "'Änderung speichern" klickt soll er die Zeile die in der lfd. Nummer vermerkt ist nehmen und die Daten dann anhand der Eingaben anpassen.
Und hier das Problem - Das ist mein Ansatz - ich kann die Daten ändern und auf "'Änderung speichern" gehen aber es passiert gar nichts. Also auch keinerlei Fehlermeldung oder ähnliches. Könnt ihr mir bei der Lösung des Sachverhaltes helfen?
Danke bereits jetzt!
Hier der Code des Command Buttons:
(in Spalte P steht die laufende Nummer)
Private Sub CommandButton_Änderung_Click()
Dim x As Long
Dim y As Long
x = Sheets("Vorlage_TEST").Range("P" & Rows.Count).End(xlUp).Row
For y = 20 To x
If Sheets("Vorlage_TEST").Cells(y, 16).Value = TextBox_lfd.Value Then
Sheets("Vorlage_TEST").Cells(y, 1).Value = TextBox_Name.Value
Sheets("Vorlage_TEST").Cells(y, 2).Value = TextBox_Vorname.Value
Sheets("Vorlage_TEST").Cells(y, 3).Value = TextBox_ID.Value
Sheets("Vorlage_TEST").Cells(y, 4).Value = TextBox_Datum.Value
Sheets("Vorlage_TEST").Cells(y, 5).Value = OptionButton1
Sheets("Vorlage_TEST").Cells(y, 5).Value = OptionButton2
Sheets("Vorlage_TEST").Cells(y, 6).Value = OptionButton3
Sheets("Vorlage_TEST").Cells(y, 7).Value = OptionButton4
Sheets("Vorlage_TEST").Cells(y, 8).Value = OptionButton5
Sheets("Vorlage_TEST").Cells(y, 9).Value = CheckBox_K
Sheets("Vorlage_TEST").Cells(y, 10).Value = CheckBox_S
Sheets("Vorlage_TEST").Cells(y, 11).Value = CheckBox_B
Sheets("Vorlage_TEST").Cells(y, 12).Value = CheckBox_B2
Sheets("Vorlage_TEST").Cells(y, 13).Value = TextBox_EM.Value
Sheets("Vorlage_TEST").Cells(y, 14).Value = TextBox_ZO.Value
Sheets("Vorlage_TEST").Cells(y, 15).Value = CheckBox_TR
End If
Next y
Call refresh
End Sub
|