10 Checkboxen
10.02.2009 19:05:02
Jörg
ich hätte da 10 Checkboxen (an anderer Stelle nochmal 20), die man anklicken soll, um Dinge zu sehen bzw. Überflüssiges auszublenden. Im Pinzip geht das so:
Private Sub ChBx1_Click()
If ChBx1.Value = True Then
Range("Musterzelle1").EntireRow.Hidden = False
Else
Range("Musterzelle1").EntireRow.Hidden = True
End If
End Sub
Private Sub ChBx2_Click()
If ChBx2.Value = True Then
Range("Musterzelle2").EntireRow.Hidden = False
Else
Range("Musterzelle2").EntireRow.Hidden = True
End If
End Sub
usw.....
Die Boxen heißen alle unterschiedlich (also sie sind durchnumeriert) und lösen etwas aus in einem Bereich, der analog durchnumeriert ist.
Gibt es einen Weg, das zu vereinfachen? Also nur einmal einen Rumpf schreiben oder so? Es ist ja keine Schleife, die hochgezählt werden kann - wenn Box 5 betätigt wird, muß der Code eben wissen, daß nur im Bereich 5 was passieren soll.
Danke für Eure Ideen...
Jörg