[
attachment=14320]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
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
Danke Tom für deine Hilfe.
An welcher Stelle in welchem Code setze ich diese Zeilen ein?
Gruß
MdeJong
Hallo
wo hast du denn den anderen Code den die Userform betrifft?
z.B. den für den Commandbutton
MfG Tom
Hinter der Userform "Filme_buchen" unter CommandButton1_Click()
Hallo
dann kommt jetzt die Preisfrage...
wo mag dann der von mir gepostete Code hinkommen?
MfG Tom
(11.11.2017, 13:54)Crazy Tom schrieb: [ -> ]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
;)
Kann ich die TextBox mit der fortlaufenden Nummer auch schreibschützen??
Gruß
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 ??
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