Wert letzter gefüllter Zelle an TExtbox übergeben
12.10.2015 13:55:18
Manuel
eine kurze Frage, wie schaffe ich es den Wert aus der letzten Zelle in Spalte A (Tabelle1) an die activeX Textbox in Tabelle2 weiterzugeben und immer den Urpsrungswert dabei mit 1 addieren. Bisher habe ich es so versucht in dem ich zunächst den Wert in die Textbox geladen hab und dann von dort aus +1 addiert habe, was allerdings nicht funktioniert.
Sub letzteZelleFürTExtbox()
Dim xZeile As Long
Sheets("Tabelle1").Activate
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle2").TextBox20.Value = Sheets("Tabelle1").Cells(xZeile + 1, 1)
End Sub
Grüße
Anzeige