Letzte befüllte Zelle in Spalte

[sandormiles]

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

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

[schauan]

Hallo Sandor,

im code steht: ... Ende + 1
Also wird hier zur Zeilenzahl eins dazu addiert und das Ergebnis in der Textbox ausgegeben. Eine Liste kommt hier nicht vor.

[Kuwer]

Hallo Sandor,

meinst Du vielleicht so?

TextBox1.Value = Cells(Ende, 1).Value + 1

Gruß Uwe

[sandormiles]

Hallo Sandor,

meinst Du vielleicht so?

TextBox1.Value = Cells(Ende, 1).Value + 1

Gruß Uwe

Genau das meinte ich... Danke euch beiden. Mit Uwes Tipp hat es funktioniert.