Makro automatische fortlaufende Nummerierung

[MdeJong]

  Test Datenbank - Kopie.xlsm (Größe: 34,02 KB / Downloads: 3) Hallo liebe Excelfreunde,

ich habe mir einer Userform zurechtgebastelt um Filme darin einzutragen, die anschließend in ein bestimmtes Tabellenblatt
gespeichert werden.
Nun möchte ich, das vorm speichern und vor jeder neuen Eingabe der Code prüft, welches die letzte fortlaufende Filmnummer ist laut Datenblatt, wo alles gespeichert ist.  So soll der Code für jede neue Eingabe ein neue Nummer vergeben.

Ich bin sicher, das mir da jemand bei helfen kann?

Wäre toll!!!


Grüße

MdeJong

[Crazy Tom]

Moinmoin

aufgrund deines Tabellenaufbaus könnte es so aussehen

Code:

Private Sub UserForm_Initialize()
   Dim lngZeile As Long
   With Worksheets("BluRay-Liste")
       lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
       TextBox1.Value = lngZeile
   End With
End Sub

MfG Tom

[MdeJong]

Danke Tom für deine Hilfe.
An welcher Stelle in welchem Code setze ich diese Zeilen ein?

Gruß
MdeJong

[Crazy Tom]

Hallo

wo hast du denn den anderen Code den die Userform betrifft?
z.B. den für den Commandbutton 

MfG Tom

[MdeJong]

Hinter der Userform "Filme_buchen" unter CommandButton1_Click()

[Crazy Tom]

Hallo

dann kommt jetzt die Preisfrage...
wo mag dann der von mir gepostete Code hinkommen?

MfG Tom

[MdeJong]

Hallo

dann kommt jetzt die Preisfrage...
wo mag dann der von mir gepostete Code hinkommen?

MfG Tom

Hi.....Na so was!!!.......ich deinen Code wohl an der richtigen Stelle eingefügt....läuft    ;)

[MdeJong]

Kann ich die TextBox mit der fortlaufenden Nummer auch schreibschützen??

Gruß 
MdeJong

[MdeJong]

Hallo Tom,


mir fällt grad auf, das dein Code nur eine neue Nummer vergibt, nur wenn ich die Maske neu aufrufe.
Nicht wenn ich auf speichern gehe ??

[Crazy Tom]

Hallo

dann ändere den Code für den Commandbutton wie folgt

Code:

Private Sub CommandButton1_Click()
   Dim sp As Integer
   Dim z As Long
   With Worksheets("BluRay-Liste")
       z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       For sp = 1 To 14
           .Cells(z, sp) = Controls("TextBox" & sp).Text
       Next sp
   End With
   For intAnz = 1 To 14
       Controls("Textbox" & intAnz) = ""
   Next intAnz
   MsgBox "Daten wurden erfolgreich übernommen"
   Call UserForm_Initialize
End Sub

in deiner neuen Datei ist aber keine fortlaufende Nummer in Spalte A
ist das Absicht oder Versehen?

MfG Tom