VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen

Gruppe

Dialog

Bereich

TextBox

Thema

Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen

Problem

Wie kann ich mir in einer UserForm-TextBox beim Dialogaufruf den letzten in Spalte A eingetragenen Wert anzeigen lassen?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




ClassModule: frmLastValue

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   txtLastValue.Text = Cells( _
      Cells(Rows.Count, 1).End(xlUp).Row, 1).Text
End Sub

StandardModule: basMain

Sub CallForm()
   frmLastValue.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox