Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle mit lfd. Nr aus UF beschreiben
11.07.2022 23:35:53 Jan
NotSolved
12.07.2022 16:53:43 xlKing
NotSolved
17.07.2022 01:34:24 Jan
NotSolved
17.07.2022 17:12:44 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Jan
Datum:
11.07.2022 23:35:53
Views:
124
Rating: Antwort:
  Ja
Thema:
Zelle mit lfd. Nr aus UF beschreiben

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle mit lfd. Nr aus UF beschreiben
11.07.2022 23:35:53 Jan
NotSolved
12.07.2022 16:53:43 xlKing
NotSolved
17.07.2022 01:34:24 Jan
NotSolved
17.07.2022 17:12:44 xlKing
NotSolved