Thema Datum  Von Nutzer Rating
Antwort
Rot gelesene Zeile überschreiben
13.04.2022 06:27:52 Jonah
NotSolved
17.04.2022 13:59:18 Gast74666
NotSolved
19.04.2022 13:27:53 Gast23973
NotSolved
19.04.2022 14:22:13 Gast78858
NotSolved

Ansicht des Beitrags:
Von:
Jonah
Datum:
13.04.2022 06:27:52
Views:
265
Rating: Antwort:
  Ja
Thema:
gelesene Zeile überschreiben

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

 

 

 


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 gelesene Zeile überschreiben
13.04.2022 06:27:52 Jonah
NotSolved
17.04.2022 13:59:18 Gast74666
NotSolved
19.04.2022 13:27:53 Gast23973
NotSolved
19.04.2022 14:22:13 Gast78858
NotSolved