Clever-Excel-Forum

Hi Tom,


Da macht er an dieser Zeile halt:


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

(11.11.2017, 14:17)Crazy Tom schrieb: [ -> ]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?

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

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

(11.11.2017, 14:32)Crazy Tom schrieb: [ -> ]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 

Hallo

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




MfG Tom

Hey Tom,


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


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

Gruß

MedeJong