03.07.2015, 21:14
Nabend... Nun also mal eine konkrete Frage. Ich möchte gerne eine Userform öffnen und dann soll in einem Textfeld eine neue laufende Nummer generiert werden. Folgenden Code wollte ich nutzen
Fortgesetzt wird aber nicht meine Liste, sondern Excel zählt die Zeilenzahl weiter...
Vielen Dank schon mal!
Grüße
Sandor
Code:
Public Sub UserForm_Initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
Dim Ende As Long
With ActiveSheet
Ende = .Cells(Rows.Count, 1).End(xlUp).Row
End With
'Bei jedem Drücken der RETURN-Taste wird das Suchen-Makro ausgeführt
CommandButton1.Default = False
'TextBox1.Text = ""
TextBox1.Value = Ende + 1
TextBox1.SetFocus
End Sub
Fortgesetzt wird aber nicht meine Liste, sondern Excel zählt die Zeilenzahl weiter...
Vielen Dank schon mal!
Grüße
Sandor