Makro automatische fortlaufende Nummerierung

[MdeJong]

Hi Tom,


Da macht er an dieser Zeile halt:


.Cells(z, sp) = Controls("TextBox" & sp).Text

[MdeJong]

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

Was meinst du:

in deiner neuen Datei ist aber keine fortlaufende Nummer in Spalte A

ist das Absicht oder Versehen?

[Crazy Tom]

Hallo

in meinem Test kommt kein Fehler
in deiner zweiten Datei aus dem neuen Threat sieht die fortlaufende Nummer so aus

1
2
4

MfG Tom

[MdeJong]

Hi Tom,


dein letzter Code funktioniert doch.

Ich hatte hier in meiner Testmappe eine 14. TextBox......da hat der Code sich so angestellt  :)

Jetzt muss nur noch verhindert werden, das man in der userform die automatisch vergebene Nummer vom User überschrieben werden kann?

Gruß

MdeJong

[MdeJong]

Hallo

in meinem Test kommt kein Fehler
in deiner zweiten Datei aus dem neuen Threat sieht die fortlaufende Nummer so aus

1
2
4

MfG Tom

Da hatte ich noch nicht deine Lösung und hab Nummern selbst vergeben....halt nicht fortlaufend 

[Crazy Tom]

Hallo

so gilt für die Textbox der Nummer: nur gucken... nicht anfassen

Code:

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

MfG Tom

[MdeJong]

Hey Tom,


super gelöst....perfekt....Danke.


Ich setzte die aktuelle Film-Mappe in meiner neuen Anfrage rein. :)

Gruß

MedeJong