ich habe ein Excel-Sheet mit mehreren Listboxen. Zu jeder Listbox habe ich einen Button, mit dem ich den angewählten Eintrag der zugehörigen Listbox löschen möchte. Der Übersichtlichkeit halber will ich aber nicht zu jedem Button den gleichen (langen) Code schreiben, sondern eine Funktion aufrufen, die die entsprechende Listbox auswählt und den Eintrag löscht.
Hier mein Code:
Private Sub but_del_prob_kommunizieren_Click()
del_listbox ("lb_prob_kommunizieren")
End Sub
'--------------------
'--------------------
Function del_listbox(boxname As String)
If boxname.ListIndex >= 0 Then
boxname.RemoveItem (boxname.ListIndex)
Else: MsgBox ("Bitte selektieren Sie zuerst den zu entfernenden Eintrag!")
End If
End Function
Leider funktioniert das aber nicht. Es kommt jedes Mal die Meldung "Fehler: Ungültiger Bezeichner" und die Zeile der Funktionseinleitung wird markiert (Function del_listbox(boxname As String).
Wenn ich die Variable boxname durch den Namen der Listbox (z.B. lb_prob_kommunizieren) austausche, klappt alles wunderbar.
Ich hoffe, mir kann jemand bei dem Problem helfen.
Danke im Vorraus!
Tim