Option
Explicit
Private
Sub
lbAbschluss_Click()
Me
.tbAbschluss.Visible =
True
If
Me
.lbAbschluss.ListIndex = 7
Then
_
Me
.tbAbschluss.Visible =
False
End
Sub
Private
Sub
UserForm_Initialize()
With
Me
.lbAbschluss
.AddItem
"noch nicht abgeschlossen"
.AddItem
"nicht mehr erschienen"
.AddItem
"Ziel erreicht"
.AddItem
"Neues Problem / Ziel, Neuer Fokus"
.AddItem
"Wegzug"
.AddItem
"Triage Sozialdienst"
.AddItem
"Triage KESB"
.AddItem
"Beratung noch nicht abgeschlossen"
End
With
End
Sub
Private
Sub
CommandButton1_Click()
Dim
z
As
Integer
z = Range(
"A65565"
).
End
(xlUp).Row + 0
Cells(z, 16) =
Me
.lbAbschluss.Value
If
Me
.lbAbschluss.ListIndex <> 7
Then
_
Cells(z, 17) =
Me
.tbAbschluss.Text
Unload
Me
End
Sub