Aufruf von Sub funktioniert nicht!
13.08.2015 16:16:13
Sub
ich hab eine Sub geschrieben, die ich dann innerhalb einer Checkbox aufrufen will. Ich habe ca 100 Checkboxen, die jede die selbe Funktion haben. Sie sollen die Schriftfarbe einer Zelle (hier A1 als Beispiel genommen) ändern, je nachdem ob sie angeklickt sind oder nicht. Natürlich letzendlich dann für jeweils verschiendene Zellen, aber das ist im Moment erstmal egal.
Um allerdings nicht 100 mal die selben Codezeilen zu haben, wollte ich eine allgemeine Sub schreiben und die jeweils in den Checkboxen aufrufen (was besseres fällt mir leider zur Zeit nicht ein).
Das funktioniert auch, allerdings wird nur beim ersten Anklicken die Farbe geändert und wene die CheckBox dann nochmal angeklickt wird, passiert nichts mehr. Ich kann mir allerdings nicht erklären, woran das liegt. Mit jedem Anklicken müsste die Methode ja eigentlilch neu aufgerufen werden.
Public Sub Checkboxen(ByVal i As Integer)
If Checkbox + i Then Range("A1").Font.ColorIndex = 8
If Not (Checkbox + i) Then Range("A1").Font.ColorIndex = 10
End Sub
' Methodenaufruf in CheckBox
Private Sub CheckBox14_Click()
Call Checkboxen(14)
End Sub
Kann sich jm erklären, woran das liegen könnte? Vielen Dank schonmal im vorraus!
Liebe Grüße
Michi