könnt Ihr mir bitte weiterhelfen.
Ich möchte wenn eine Checkbox den Wert Value = True hat, eine Listbox befüllen.
Das funktioniert auch. Jedoch möchte ich das wenn der wert wieder auf False gesetzt wird das die eingefügten Einträge entfernt werden.
Ich bekomme bei diesem Code eine Fehlermeldung.
Private Sub chk_igm_Click()
If chk_igm.Value = True Then
With UserForm1.lst_tasks
.AddItem "Kalkulation (IGM)"
.AddItem "Flächenaufnahme"
.AddItem "Reinigung (+24 restliche PP)(IGM)"
.AddItem "sonstiges (IGM)"
.AddItem "Qualitätsmanagement (IGM)"
.AddItem "IT / CAFM (IGM)"
.AddItem "Nachunternehmer (IGM)"
.AddItem "Projektsteuerung (IGM)"
.AddItem "Operations (IGM)"
.AddItem "HSEQ (IGM)"
End With
Else
With UserForm1.lst_tasks
.RemoveItem "Kalkulation (IGM)"
.RemoveItem "Flächenaufnahme"
.RemoveItem "Reinigung (+24 restliche PP)(IGM)"
.RemoveItem "sonstiges (IGM)"
.RemoveItem "Qualitätsmanagement (IGM)"
.RemoveItem "IT / CAFM (IGM)"
.RemoveItem "Nachunternehmer (IGM)"
.RemoveItem "Projektsteuerung (IGM)"
.RemoveItem "Operations (IGM)"
.RemoveItem "HSEQ (IGM)"
End With
End If
End Sub