Gruppe
Ereignis
Problem
Wie kann ich bei Einträgen in Spalte A eine UserForm aufrufen, in der in einer ListBox die aktualisierten Werte angezeigt werden?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
With frmAutomatic
.lstAutomatic.List = Range("A1").CurrentRegion.Value
.Show
End With
End Sub
ClassModule: frmAutomatic
Private Sub cmdWeiter_Click()
Unload Me
End Sub