ich probiere viel aus, lerne immer weiter dazu, aber Probleme bleiben natürlich trotzdem immer mal. Ich habe aber auch gelernt, dieses Forum ist für mich die Schatztruhe des unergründlichen Wissens...
Wie folgt:
Ich habe an die 100 ActiveX-Checkboxen in meinem Blatt. Jeder Checkbox soll bei TRUE eine eigene Aktion zugewiesen werden. Es soll, abhängig von der Checkboxnummer, also die 5 für "Checkbox5" eine Zeile auf einem anderen Blatt ausgeblendet werden und der Haken wieder entfernt werden. Unten stehenden Code habe ich bereits zusammen gegoogelt:
2 Fragen dazu
1.
Warum werden mir bei dieser Nummer auch Togglebuttons auf dem Blatt wieder auf False gesetzt? Ich frage doch extra den Typ der Control ab.
2.
Geht das überhaupt, dass ich aus der Bezeichnung die letzten maximal 3 Stellen auslese und zum weiter rechnen verwende? Ich habe insgesamt ca 100 Checkboxen. Die Nummern der Boxen gehen nicht durch von 1 bis 100, aber die höchste Nummer ist 264. Die Anzahl der auszulesenden Stellen ist halt variabel.
Public Sub Ckecks()
Dim ObjOLE As OLEObject
For Each ObjOLE In ActiveSheet.OLEObjects
If TypeOf ObjOLE.Object Is MSForms.CheckBox Then
ObjOLE.Name
'Sheets("Ertrag").Rows("Checkboxnummer + 8").Hidden
ObjOLE.Object.Value = False
End If
Next ObjOLE
End Sub
Danke euch!