Makroänderung
01.06.2004 10:30:05
KlausK
mit dem anhängenden Beispielmakro werden die in der Listbox 1 enthaltenen Elemente gezählt und diese Anzahl per Klick auf die Userform in der Textbox 1 dargestellt. Welche Änderung ist notwendig, damit sich die Textbox 1 aktualisiert, sofern ein neues Element in der Listbox 1 dazu gekommen ist? Also ohne Klick auf die UF.
Vielen Dank und einen schönen Tag
KlausK
Option Explicit
Private Sub UserForm_click()
Me.TextBox1.Text = Me.ListBox1.ListCount
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem "A"
Me.ListBox1.AddItem "B"
Me.ListBox1.AddItem "C"
Me.ListBox1.AddItem "D"
End Sub
Anzeige