Lfd. Nr. generieren

Forumthread: Lfd. Nr. generieren

Lfd. Nr. generieren

06.02.2020 15:05:13

Schellenberg

Folgendes Problem bringt mich zum verzweifeln...
habe ein userform "Stunden_schreiben"
wenn ich diese öffne, soll automatisch in der Tabelle Spalte A der größte bestehende Zahlenwert gesucht werden.
Auf diesen +1 gerechnet und dann das Ergebnis in die userform "Stunden_schreiben" - Textfeld "ID_NR" eingetragen werden...
habe hier nun mehrere stunden gelesen und probiert, aber irgendwie will mir das nicht gelingen...
Leider ist die Datei knapp 0,5MB groß und ich bekomme sie nicht auf dem Fileserver...
ggf. hilft der Dropbox link hier zum Veranschaulichen...
https://www.dropbox.com/s/5mrnlbbglvbs88i/Stundennachweis.xlsm?dl=0
Passwort für die "Adminebene" ist user
Vielen Dank für Eure Tipps schon mal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: warum reduzierst Du nicht die Dateigröße ...

06.02.2020 15:07:57

neopa

Hallo,
... auf einen relevanten Auszug Deiner Datei in einer Kopie? Dann kannst Du diese auch sicherlich hier im Forum direkt hochladen.
Gruß Werner
.. , - ...

AW: warum reduzierst Du nicht die Dateigröße ...

06.02.2020 15:23:39

Schellenberg

Eine sehr gute Idee, einfach nicht benötigte userforms zu exen für hier;
https://www.herber.de/bbs/user/135035.xlsm

AW: Lfd. Nr. generieren

06.02.2020 15:11:20

Werner

Hallo,
den Code ins Codemodul deiner Userform. Den Blattnamen im Code mußt du anpassen.

Private Sub UserForm_Initialize()
Me.ID_NR = WorksheetFunction.Max(Worksheets("Tabelle1").Columns(1)) + 1
End Sub

Gruß Werner

AW: Lfd. Nr. generieren

06.02.2020 15:27:00

Schellenberg

Das geht hier sehr schnell... danke erstmal!
mit dem Code macht er mir erstmalig die Nr. 1 - beim zweiten Anlauf allerdings auch... er geht nicht auf 2..3..4...
oder spinnt innerhalb der userform irgend eine andere Einstellung und ich komm deshalb nicht weiter?

AW: Lfd. Nr. generieren

06.02.2020 15:42:28

Werner

Hallo,
du schreibst ja auch mit deinem Speichern Button keine Zahl in deine Tabelle sondern Text. Das gleiche gilt für deine Zeit und dein Datum.
Eine Textbox enthält, wie der Name schon sagt, Text. Beim Schreiben in die Tabelle mußt du das dann entsprechend "umformatieren".
Nach dem Muster:

Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = CLng(ID_NR)
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "B") = Comb_Einsatzart
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "C") = Combo_ort
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "D") = Combo_Aufgabe
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "E") = CDate(TextBox_Start_Date)
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "F") = CDate(TextBox_Start_Time)
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "G") = CDate(TextBox_Ende_Date)
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "H") = CDate(TextBox_Ende_Time)
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "I") = TextBox_h1
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "J") = TextBox_Bericht
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "K") = Combo_Mitarbeiter_1.Text

Gruß Werner

AW: Lfd. Nr. generieren

06.02.2020 16:10:14

Schellenberg

Vielen Lieben Dank!!!!!
so funktioniert es!
P.S.
staune sowieso wie ich nur mit dem Forum und paar Video Tutorials so weit gekommen bin...
War der Festen Meinung, wenn ich die Tabellen Spalten als Zahl oder Datum formatiere, dass er es auch als solches erkennt...
Ich denke da gibt es noch viel auf zu hübschen hier, aber Dank dir ist die Datei nun wenigstens soweit, dass sie gefüllt werden kann!
DANKE

Gerne u. Danke für die Rückmeldung. o.w.T.

06.02.2020 16:11:37

Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Lfd. Nr. generieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread