Office: (Office 2013) Userform

nkh2018 · 8. März 2019

Hallo.

In meinem Userform habe ich eine TextBox in welcher eine automatische fortlaufende Nummerierung durchgeführt wird.

Der Code dafür ist

Code:

' fortlaufende Nummerierung der Datensätze..

TextBox4.Value = WorksheetFunction.Max(Range("A:A")) + 1 ' fortlaufende Nummer für Datensatz erzeugen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich jedoch den Datensatz ändern will, wird nicht die zuvor vergebene Nummer angezeigt bzw. gespeichert, sondern eine neue Nummer vergeben...

siehe Bild und angeführte Datei..

Herzlichen Dank für die Hilfe...

:)

Scorefun · 10. März 2019

Die Zuweisung machst Du doch selbst mit dem Ändern-Button

Code:

Tabelle1.Cells(sonsat, 1).Value = TextBox4.Value ' fortlaufende Nummerierung Datensatz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also weg damit beim Ändern...

nkh2018 · 10. März 2019

Danke vorerst...

wo füge ich den Code ein...

derzeit ist dieser in der Sub UserForm_Initialize()

Code:

Private Sub UserForm_Initialize()

' Daten aus Tabelle in ListBox einlesen

Sheets("Datenblatt").Activate
ListBox1.ColumnWidths = "20;20;100;70;20;60;60;30;30;30;30;30;30;30;30;30;30;30;30;30;30;30;30;30;30" 'COLUMN WITH OF LISTBOX
ListBox1.ColumnCount = 25 'COLUMN NUMBER OF LISTBOX
ListBox1.List = Sheets("Datenblatt").Range("A2:Z" & [a65536].End(3).Row).Value

' ### caption der CheckBox aus Tabelle Datenblatt bestimmen
CheckBox2.Caption = Worksheets("Datenblatt").Range("H1").Value
CheckBox3.Caption = Worksheets("Datenblatt").Range("I1").Value
CheckBox4.Caption = Worksheets("Datenblatt").Range("J1").Value
CheckBox5.Caption = Worksheets("Datenblatt").Range("K1").Value
CheckBox6.Caption = Worksheets("Datenblatt").Range("L1").Value
CheckBox7.Caption = Worksheets("Datenblatt").Range("M1").Value
CheckBox8.Caption = Worksheets("Datenblatt").Range("N1").Value
CheckBox9.Caption = Worksheets("Datenblatt").Range("O1").Value
CheckBox10.Caption = Worksheets("Datenblatt").Range("P1").Value
CheckBox11.Caption = Worksheets("Datenblatt").Range("Q1").Value
CheckBox12.Caption = Worksheets("Datenblatt").Range("R1").Value
CheckBox13.Caption = Worksheets("Datenblatt").Range("S1").Value
CheckBox14.Caption = Worksheets("Datenblatt").Range("T1").Value
CheckBox15.Caption = Worksheets("Datenblatt").Range("U1").Value
CheckBox16.Caption = Worksheets("Datenblatt").Range("V1").Value
CheckBox17.Caption = Worksheets("Datenblatt").Range("W1").Value
CheckBox18.Caption = Worksheets("Datenblatt").Range("X1").Value
CheckBox19.Caption = Worksheets("Datenblatt").Range("Y1").Value

' fortlaufende Nummerierung der Datensätze..

TextBox4.Value = WorksheetFunction.Max(Range("A:A")) + 1 ' fortlaufende Nummer für Datensatz erzeugen

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der Sub speichern habe ich es bereits erfolglos versucht...

Scorefun · 12. Januar 2021

von nkh2018

wo füge ich den Code ein...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hä?

Du sollst diese Zeile löschen im Code des Buttons "Datensatz ändern"

Und was hat die rot markierte Zeile damit zu tun?

nkh2018 · 10. März 2019

\@scorefun

Danke... habe irrtümlich eine falsche Code-Zeile gelöscht....

Funktioniert nun....

es wird zwar noch die nächste fortlaufende Zahl im Userform angezeigt, aber bei Datensatz ändern nicht mehr überschrieben...

Ist es jedoch irgendwie möglich, dass die dazugehörende fortlaufende Nummer beim Ändern (wie im beigefügtem Bild) angezeigt wird?

Danke dafür nochmals...

nkh2018 · 10. März 2019

Bild dazu

Scorefun · 10. März 2019

Welchen Sinn soll das haben?
Die Textbox zeigt die nächste freie Nummer an, die bei einem neuen Datensatz vergeben werden soll - Blende die textbox aus...dann irritiert sie auch nicht

nkh2018 · 10. März 2019

Danke für den Hinweis...

Office: (Office 2013) Userform

Userform

Userform

Userform

Userform

Userform - Similar Threads - Userform

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern

VBA Code Tabellenblatt kopieren und UserForm

UserForm wechseln

Daten aus UserForm in Tabellenblatt übertragen

userform schliessen, Inhalt soll erhalten bleiben