Private Sub UserForm_Activate() 'diese Zeile nicht mit einfügen (steht bei dir schon)
Dim liLetzte As Integer, liIndex As Integer
With ThisWorkbook.Sheets("DeinSheet")
liLetzte = .Cells(Rows.Count, 3).End(xlUp).Row
If liLetzte
Dieser Code prüft zuerst die letzte, benutzte Zeile in Spalte C.
Wenn die letzte, benutzte Zeile kleiner 8 ist, dann existieren nach deiner Definition noch keine Einträge, und die Textbox erhält den Wert 1.
Wenn die letzte, benutzte Zeile größer oder gleich 8 ist, dann erhält die Textbox den Wert aus letzte, benutzte Zeile PLUS 1.
Hilft das?
Ciao
Thorsten
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen