VBA: Name von aktiver Checkbox auslesen
27.02.2017 18:45:39
aktiver
ich habe eine Userform mit diversen Checkboxen und möchte gerne bei allen den gleichen VBA-Code verwenden, nur dass sich eben immer der Name der Checkbox ändert.
Gibt es eine Möglichkeit, den Namen dynamisch auszulesen, damit man ihn nicht hardcoden muss (wie hier "Check1All") ? Ähnlich wie das Me bei der Userform oder This etc. in anderen Sprachen ?
Mein Code:
Private Sub Check1All_Click()
Dim varCategory As String
Dim varValue As String
With Check1All ' statt Check1All sollte der Name der aktuellen Checkbox verwendet werden
varCategory = Left(.Name, Len(.Name) - 3)
varValue = .Value
End With
Call CheckAll(varCategory, varValue)
End Sub
Tim