ich stehe mal wieder vor einer banalen Aufgabe, die vermeintlich doch schnell gelöst sein sollte. Vermutlich stelle ich mich wieder mal zu doof an...
In meinem VBA-Projekt habe ich etliche Combo- und Textboxen. Nun sollen diese je nach Eingabe des Anwenders disabled oder enabled werden. Spätestens beim dritten Mal denk ich mir, kann ich doch ein Sub draus machen. Für Comboboxen funktioniert das auch problemlos:
Sub DisableListBoxes(TargetList As ComboBox)
With TargetList
.Enabled = False
.BackColor = Functions.RGBCode("inactive")
End With
End Sub
Aufruf:
Call DisableListBoxes(Combobox)
Naiv wie ich bin, dachte ich mir, das geht doch mit Textboxen sicher genauso:
Sub DisableListBoxes(TargetBox As TextBox)
With TargetBox
.Enabled = False
.BackColor = Functions.RGBCode("inactive")
End With
End Sub
Beim Auruf kommt es jedoch immer zu der Meldung 'Typen unverträglich'. Führe ich dagegen den Code direkt in der UserForm aus, dann meckert Excel nicht (so wie hier):
With TxtBox
.Enabled = False
.BackColor = Functions.RGBCode("inactive")
End With
Habt ihr eine Idee, warum ich die Textbox nicht an ein Sub weitergeben kann, das diesen immer wieder durchzuführenden Code übernimmt?Vielen Dank und Gruß, Jan