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