AW: lfd. Nr. in Textfeld automatisch generieren
12.08.2007 10:48:00
Oberschlumpf
Hi Birgit
Versuch mal so.
Schreib diesen Code ins Activate-Ereignis deines Userform(ulares):
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