Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen

Gruppe

TextBox

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