hat jemand eine Idee wie man den folgenden Code klener schreiben kann?
Private Sub CheckBox1_Click()
fpc_ip_std_eingabe.CheckBox2.Enabled = False
End Sub
Private Sub CheckBox2_Click()
With fpc_ip_std_eingabe
.CheckBox1.Enabled = False
.CheckBox3.Enabled = False
End With
End Sub
Private Sub CheckBox3_Click()
fpc_ip_std_eingabe.CheckBox2.Enabled = False
End Sub
Private Sub CheckBox4_Click()
fpc_ip_std_eingabe.CheckBox5.Enabled = False
End Sub
Private Sub CheckBox5_Click()
With fpc_ip_std_eingabe
.CheckBox4.Enabled = False
.CheckBox6.Enabled = False
End With
End Sub
Private Sub CheckBox6_Click()
fpc_ip_std_eingabe.CheckBox5.Enabled = False
End Sub
Private Sub CheckBox7_Click()
fpc_ip_std_eingabe.CheckBox8.Enabled = False
End Sub
Private Sub CheckBox8_Click()
With fpc_ip_std_eingabe
.CheckBox7.Enabled = False
.CheckBox9.Enabled = False
End With
End Sub
Private Sub CheckBox9_Click()
fpc_ip_std_eingabe.CheckBox8.Enabled = False
End Sub
Private Sub CheckBox10_Click()
fpc_ip_std_eingabe.CheckBox11.Enabled = False
End Sub
Private Sub CheckBox11_Click()
With fpc_ip_std_eingabe
.CheckBox10.Enabled = False
.CheckBox12.Enabled = False
End With
End Sub
Private Sub CheckBox12_Click()
fpc_ip_std_eingabe.CheckBox11.Enabled = False
End Sub
Private Sub CheckBox13_Click()
fpc_ip_std_eingabe.CheckBox14.Enabled = False
End Sub
Private Sub CheckBox14_Click()
With fpc_ip_std_eingabe
.CheckBox13.Enabled = False
.CheckBox15.Enabled = False
End With
End Sub
Private Sub CheckBox15_Click()
fpc_ip_std_eingabe.CheckBox14.Enabled = False
End Sub
Private Sub CheckBox16_Click()
fpc_ip_std_eingabe.CheckBox17.Enabled = False
End Sub
Private Sub CheckBox17_Click()
With fpc_ip_std_eingabe
.CheckBox16.Enabled = False
.CheckBox18.Enabled = False
End With
End Sub
Private Sub CheckBox18_Click()
fpc_ip_std_eingabe.CheckBox17.Enabled = False
End Sub
Private Sub CheckBox19_Click()
fpc_ip_std_eingabe.CheckBox20.Enabled = False
End Sub
Private Sub CheckBox20_Click()
With fpc_ip_std_eingabe
.CheckBox19.Enabled = False
.CheckBox21.Enabled = False
End With
End Sub
Private Sub CheckBox21_Click()
fpc_ip_std_eingabe.CheckBox20.Enabled = False
End Sub
Private Sub CheckBox22_Click()
fpc_ip_std_eingabe.CheckBox23.Enabled = False
End Sub
Private Sub CheckBox23_Click()
With fpc_ip_std_eingabe
.CheckBox22.Enabled = False
.CheckBox24.Enabled = False
End With
End Sub
Private Sub CheckBox24_Click()
fpc_ip_std_eingabe.CheckBox23.Enabled = False
End Sub
Private Sub CheckBox25_Click()
fpc_ip_std_eingabe.CheckBox26.Enabled = False
End Sub
Private Sub CheckBox26_Click()
With fpc_ip_std_eingabe
.CheckBox25.Enabled = False
.CheckBox27.Enabled = False
End With
End Sub
Private Sub CheckBox27_Click()
fpc_ip_std_eingabe.CheckBox26.Enabled = False
End Sub
Private Sub CheckBox28_Click()
fpc_ip_std_eingabe.CheckBox29.Enabled = False
End Sub
Private Sub CheckBox29_Click()
With fpc_ip_std_eingabe
.CheckBox28.Enabled = False
.CheckBox30.Enabled = False
End With
End Sub
Private Sub CheckBox30_Click()
fpc_ip_std_eingabe.CheckBox29.Enabled = False
End Sub
Private Sub CheckBox31_Click()
fpc_ip_std_eingabe.CheckBox32.Enabled = False
End Sub
Private Sub CheckBox32_Click()
With fpc_ip_std_eingabe
.CheckBox31.Enabled = False
.CheckBox33.Enabled = False
End With
End Sub
Private Sub CheckBox33_Click()
fpc_ip_std_eingabe.CheckBox32.Enabled = False
End Sub
Private Sub CheckBox34_Click()
fpc_ip_std_eingabe.CheckBox35.Enabled = False
End Sub
Private Sub CheckBox35_Click()
With fpc_ip_std_eingabe
.CheckBox34.Enabled = False
.CheckBox36.Enabled = False
End With
End Sub
Private Sub CheckBox36_Click()
fpc_ip_std_eingabe.CheckBox35.Enabled = False
End Sub
Private Sub CheckBox37_Click()
fpc_ip_std_eingabe.CheckBox38.Enabled = False
End Sub
Private Sub CheckBox38_Click()
With fpc_ip_std_eingabe
.CheckBox37.Enabled = False
.CheckBox39.Enabled = False
End With
End Sub
Private Sub CheckBox39_Click()
fpc_ip_std_eingabe.CheckBox38.Enabled = False
End Sub
Private Sub CheckBox40_Click()
fpc_ip_std_eingabe.CheckBox41.Enabled = False
End Sub
Private Sub CheckBox41_Click()
With fpc_ip_std_eingabe
.CheckBox40.Enabled = False
.CheckBox42.Enabled = False
End With
End Sub
Private Sub CheckBox42_Click()
fpc_ip_std_eingabe.CheckBox41.Enabled = False
End Sub
Private Sub CheckBox43_Click()
fpc_ip_std_eingabe.CheckBox44.Enabled = False
End Sub
Private Sub CheckBox44_Click()
With fpc_ip_std_eingabe
.CheckBox43.Enabled = False
.CheckBox45.Enabled = False
End With
End Sub
Private Sub CheckBox45_Click()
fpc_ip_std_eingabe.CheckBox44.Enabled = False
End Sub
Private Sub CheckBox46_Click()
fpc_ip_std_eingabe.CheckBox47.Enabled = False
End Sub
Private Sub CheckBox47_Click()
With fpc_ip_std_eingabe
.CheckBox46.Enabled = False
.CheckBox48.Enabled = False
End With
End Sub
Private Sub CheckBox48_Click()
fpc_ip_std_eingabe.CheckBox47.Enabled = False
End Sub
Private Sub CheckBox49_Click()
fpc_ip_std_eingabe.CheckBox50.Enabled = False
End Sub
Private Sub CheckBox50_Click()
With fpc_ip_std_eingabe
.CheckBox49.Enabled = False
.CheckBox51.Enabled = False
End With
End Sub
Private Sub CheckBox51_Click()
fpc_ip_std_eingabe.CheckBox50.Enabled = False
End Sub
Private Sub CheckBox52_Click()
fpc_ip_std_eingabe.CheckBox53.Enabled = False
End Sub
Private Sub CheckBox53_Click()
With fpc_ip_std_eingabe
.CheckBox52.Enabled = False
.CheckBox54.Enabled = False
End With
End Sub
Private Sub CheckBox54_Click()
fpc_ip_std_eingabe.CheckBox53.Enabled = False
End Sub
Private Sub CheckBox55_Click()
fpc_ip_std_eingabe.CheckBox56.Enabled = False
End Sub
Private Sub CheckBox56_Click()
With fpc_ip_std_eingabe
.CheckBox55.Enabled = False
.CheckBox57.Enabled = False
End With
End Sub
Private Sub CheckBox57_Click()
fpc_ip_std_eingabe.CheckBox56.Enabled = False
End Sub
Private Sub CheckBox58_Click()
fpc_ip_std_eingabe.CheckBox59.Enabled = False
End Sub
Private Sub CheckBox59_Click()
With fpc_ip_std_eingabe
.CheckBox58.Enabled = False
.CheckBox60.Enabled = False
End With
End Sub
Private Sub CheckBox60_Click()
fpc_ip_std_eingabe.CheckBox59.Enabled = False
End Sub
Private Sub CheckBox61_Click()
fpc_ip_std_eingabe.CheckBox62.Enabled = False
End Sub
Private Sub CheckBox62_Click()
With fpc_ip_std_eingabe
.CheckBox61.Enabled = False
.CheckBox63.Enabled = False
End With
End Sub
Private Sub CheckBox63_Click()
fpc_ip_std_eingabe.CheckBox62.Enabled = False
End Sub
Private Sub CheckBox64_Click()
fpc_ip_std_eingabe.CheckBox65.Enabled = False
End Sub
Private Sub CheckBox65_Click()
With fpc_ip_std_eingabe
.CheckBox64.Enabled = False
.CheckBox66.Enabled = False
End With
End Sub
Private Sub CheckBox66_Click()
fpc_ip_std_eingabe.CheckBox65.Enabled = False
End Sub
Private Sub CheckBox67_Click()
fpc_ip_std_eingabe.CheckBox68.Enabled = False
End Sub
Private Sub CheckBox68_Click()
With fpc_ip_std_eingabe
.CheckBox67.Enabled = False
.CheckBox69.Enabled = False
End With
End Sub
Private Sub CheckBox69_Click()
fpc_ip_std_eingabe.CheckBox68.Enabled = False
End Sub
Private Sub CheckBox70_Click()
fpc_ip_std_eingabe.CheckBox71.Enabled = False
End Sub
Private Sub CheckBox71_Click()
With fpc_ip_std_eingabe
.CheckBox70.Enabled = False
.CheckBox72.Enabled = False
End With
End Sub
Private Sub CheckBox72_Click()
fpc_ip_std_eingabe.CheckBox71.Enabled = False
End Sub
Private Sub CheckBox73_Click()
fpc_ip_std_eingabe.CheckBox74.Enabled = False
End Sub
Private Sub CheckBox74_Click()
With fpc_ip_std_eingabe
.CheckBox73.Enabled = False
.CheckBox75.Enabled = False
End With
End Sub
Private Sub CheckBox75_Click()
fpc_ip_std_eingabe.CheckBox74.Enabled = False
End Sub
Private Sub CheckBox76_Click()
fpc_ip_std_eingabe.CheckBox77.Enabled = False
End Sub
Private Sub CheckBox77_Click()
With fpc_ip_std_eingabe
.CheckBox76.Enabled = False
.CheckBox78.Enabled = False
End With
End Sub
Private Sub CheckBox78_Click()
fpc_ip_std_eingabe.CheckBox77.Enabled = False
End Sub
Private Sub CheckBox79_Click()
fpc_ip_std_eingabe.CheckBox80.Enabled = False
End Sub
Private Sub CheckBox80_Click()
With fpc_ip_std_eingabe
.CheckBox79.Enabled = False
.CheckBox81.Enabled = False
End With
End Sub
Private Sub CheckBox81_Click()
fpc_ip_std_eingabe.CheckBox80.Enabled = False
End Sub
Private Sub CheckBox82_Click()
fpc_ip_std_eingabe.CheckBox83.Enabled = False
End Sub
Private Sub CheckBox83_Click()
With fpc_ip_std_eingabe
.CheckBox82.Enabled = False
.CheckBox84.Enabled = False
End With
End Sub
Private Sub CheckBox84_Click()
fpc_ip_std_eingabe.CheckBox83.Enabled = False
End Sub
Private Sub CheckBox85_Click()
fpc_ip_std_eingabe.CheckBox86.Enabled = False
End Sub
Private Sub CheckBox86_Click()
With fpc_ip_std_eingabe
.CheckBox85.Enabled = False
.CheckBox87.Enabled = False
End With
End Sub
Private Sub CheckBox87_Click()
fpc_ip_std_eingabe.CheckBox86.Enabled = False
End Sub
Private Sub CheckBox88_Click()
fpc_ip_std_eingabe.CheckBox89.Enabled = False
End Sub
Private Sub CheckBox89_Click()
With fpc_ip_std_eingabe
.CheckBox88.Enabled = False
.CheckBox90.Enabled = False
End With
End Sub
Private Sub CheckBox90_Click()
fpc_ip_std_eingabe.CheckBox89.Enabled = False
End Sub
Private Sub CheckBox91_Click()
fpc_ip_std_eingabe.CheckBox92.Enabled = False
End Sub
Private Sub CheckBox92_Click()
With fpc_ip_std_eingabe
.CheckBox91.Enabled = False
.CheckBox93.Enabled = False
End With
End Sub
Private Sub CheckBox93_Click()
fpc_ip_std_eingabe.CheckBox92.Enabled = False
End Sub
Private Sub CheckBox94_Click()
fpc_ip_std_eingabe.CheckBox95.Enabled = False
End Sub
Private Sub CheckBox95_Click()
With fpc_ip_std_eingabe
.CheckBox94.Enabled = False
.CheckBox96.Enabled = False
End With
End Sub
Private Sub CheckBox96_Click()
fpc_ip_std_eingabe.CheckBox95.Enabled = False
End Sub
Private Sub CheckBox97_Click()
fpc_ip_std_eingabe.CheckBox98.Enabled = False
End Sub
Private Sub CheckBox98_Click()
With fpc_ip_std_eingabe
.CheckBox97.Enabled = False
.CheckBox99.Enabled = False
End With
End Sub
Private Sub CheckBox99_Click()
fpc_ip_std_eingabe.CheckBox98.Enabled = False
End Sub
Private Sub CheckBox100_Click()
fpc_ip_std_eingabe.CheckBox101.Enabled = False
End Sub
Private Sub CheckBox101_Click()
With fpc_ip_std_eingabe
.CheckBox100.Enabled = False
.CheckBox102.Enabled = False
End With
End Sub
Private Sub CheckBox102_Click()
fpc_ip_std_eingabe.CheckBox101.Enabled = False
End Sub
Private Sub CheckBox103_Click()
fpc_ip_std_eingabe.CheckBox104.Enabled = False
End Sub
Private Sub CheckBox104_Click()
With fpc_ip_std_eingabe
.CheckBox103.Enabled = False
.CheckBox105.Enabled = False
End With
End Sub
Private Sub CheckBox105_Click()
fpc_ip_std_eingabe.CheckBox104.Enabled = False
End Sub
Private Sub CheckBox106_Click()
fpc_ip_std_eingabe.CheckBox107.Enabled = False
End Sub
Private Sub CheckBox107_Click()
With fpc_ip_std_eingabe
.CheckBox106.Enabled = False
.CheckBox108.Enabled = False
End With
End Sub
Private Sub CheckBox108_Click()
fpc_ip_std_eingabe.CheckBox107.Enabled = False
End Sub
Private Sub CheckBox109_Click()
fpc_ip_std_eingabe.CheckBox110.Enabled = False
End Sub
Private Sub CheckBox110_Click()
With fpc_ip_std_eingabe
.CheckBox109.Enabled = False
.CheckBox111.Enabled = False
End With
End Sub
Private Sub CheckBox111_Click()
fpc_ip_std_eingabe.CheckBox110.Enabled = False
End Sub
Private Sub CheckBox112_Click()
fpc_ip_std_eingabe.CheckBox113.Enabled = False
End Sub
Private Sub CheckBox113_Click()
With fpc_ip_std_eingabe
.CheckBox112.Enabled = False
.CheckBox114.Enabled = False
End With
End Sub
Private Sub CheckBox114_Click()
fpc_ip_std_eingabe.CheckBox113.Enabled = False
End Sub
Private Sub CheckBox115_Click()
fpc_ip_std_eingabe.CheckBox116.Enabled = False
End Sub
Private Sub CheckBox116_Click()
With fpc_ip_std_eingabe
.CheckBox115.Enabled = False
.CheckBox117.Enabled = False
End With
End Sub
Private Sub CheckBox117_Click()
fpc_ip_std_eingabe.CheckBox116.Enabled = False
End Sub
Private Sub CheckBox118_Click()
fpc_ip_std_eingabe.CheckBox119.Enabled = False
End Sub
Private Sub CheckBox119_Click()
With fpc_ip_std_eingabe
.CheckBox118.Enabled = False
.CheckBox120.Enabled = False
End With
End Sub
Private Sub CheckBox120_Click()
fpc_ip_std_eingabe.CheckBox119.Enabled = False
End Sub
Private Sub CheckBox121_Click()
fpc_ip_std_eingabe.CheckBox122.Enabled = False
End Sub
Private Sub CheckBox122_Click()
With fpc_ip_std_eingabe
.CheckBox121.Enabled = False
.CheckBox123.Enabled = False
End With
End Sub
Private Sub CheckBox123_Click()
fpc_ip_std_eingabe.CheckBox122.Enabled = False
End Sub
Private Sub CheckBox124_Click()
fpc_ip_std_eingabe.CheckBox125.Enabled = False
End Sub
Private Sub CheckBox125_Click()
With fpc_ip_std_eingabe
.CheckBox124.Enabled = False
.CheckBox126.Enabled = False
End With
End Sub
Private Sub CheckBox126_Click()
fpc_ip_std_eingabe.CheckBox125.Enabled = False
End Sub
Private Sub CheckBox127_Click()
fpc_ip_std_eingabe.CheckBox128.Enabled = False
End Sub
Private Sub CheckBox128_Click()
With fpc_ip_std_eingabe
.CheckBox127.Enabled = False
.CheckBox129.Enabled = False
End With
End Sub
Private Sub CheckBox129_Click()
fpc_ip_std_eingabe.CheckBox128.Enabled = False
End Sub
Private Sub CheckBox130_Click()
fpc_ip_std_eingabe.CheckBox131.Enabled = False
End Sub
Private Sub CheckBox131_Click()
With fpc_ip_std_eingabe
.CheckBox130.Enabled = False
.CheckBox132.Enabled = False
End With
End Sub
Private Sub CheckBox132_Click()
fpc_ip_std_eingabe.CheckBox131.Enabled = False
End Sub
Private Sub CheckBox133_Click()
fpc_ip_std_eingabe.CheckBox134.Enabled = False
End Sub
Private Sub CheckBox134_Click()
With fpc_ip_std_eingabe
.CheckBox133.Enabled = False
.CheckBox135.Enabled = False
End With
End Sub
Private Sub CheckBox135_Click()
fpc_ip_std_eingabe.CheckBox134.Enabled = False
End Sub
Private Sub CheckBox136_Click()
fpc_ip_std_eingabe.CheckBox137.Enabled = False
End Sub
Private Sub CheckBox137_Click()
With fpc_ip_std_eingabe
.CheckBox136.Enabled = False
.CheckBox138.Enabled = False
End With
End Sub
Private Sub CheckBox138_Click()
fpc_ip_std_eingabe.CheckBox137.Enabled = False
End Sub
Private Sub CheckBox139_Click()
fpc_ip_std_eingabe.CheckBox140.Enabled = False
End Sub
Private Sub CheckBox140_Click()
With fpc_ip_std_eingabe
.CheckBox139.Enabled = False
.CheckBox141.Enabled = False
End With
End Sub
Private Sub CheckBox141_Click()
fpc_ip_std_eingabe.CheckBox140.Enabled = False
End Sub
Private Sub CheckBox142_Click()
fpc_ip_std_eingabe.CheckBox143.Enabled = False
End Sub
Private Sub CheckBox143_Click()
With fpc_ip_std_eingabe
.CheckBox142.Enabled = False
.CheckBox144.Enabled = False
End With
End Sub
Private Sub CheckBox144_Click()
fpc_ip_std_eingabe.CheckBox143.Enabled = False
End Sub
gruß
wuntschi