PDA

Vollständige Version anzeigen : in Texbox1 Nummer generieren


tomtom2718
11.07.2014, 12:32
Hallo zusammen

Benötige wiedermal Hilfe von Profis.

Ich habe eine Userform mit der ich Daten in Tabelle 4 schreibe.
nun möchte ich dass in Textbox1 eine Nummer/Zahl generiert wird.
Das sollte beim auf starten der Userform passieren.

Die Nummer/Zahl in Textbox1 muss anhand der Nummer/Zahl, die sich in der letzten Zeile, Tabelle4, spalte a befindet + 1 berechnet werden.



Kann mir jemand weiterhelfen.

Ich bedanke mich schon mal im Voraus.
(hoffe ich habe mich verständlich ausgedrückt)

Beste Grüsse

Crazy Tom
11.07.2014, 12:38
Hallo

das wäre ein Weg
Private Sub UserForm_Initialize()
Dim lngLetzteZeile As Long
lngLetzteZeile = Worksheets("Tabelle4").Cells(Rows.Count, 1).End(xlUp).Row
TextBox1.Value = Worksheets("Tabelle4").Cells(lngLetzteZeile, 1).Value + 1
End Sub
MfG Tom

tomtom2718
11.07.2014, 16:04
Hi Tom

Perfekt:grins:
Vielen herzlichen Dank.

Grüsse
Tomtom