Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programm Code zu lang!

Programm Code zu lang!
16.09.2005 22:47:35
wuntschi
Hallo an alle,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Programm Code zu lang!
17.09.2005 01:47:44
Luc:-?
Hallo Wuntschi,
so wie das Ganze z.Z. organisiert zu sein scheint, wird sich der Code wohl kaum kürzen lassen. Du solltest das alles rationeller organisieren... vielleicht über eine InputBox oder eine Eingabe auf der UserForm (falls hier verwendet). Mehr kann ich, ohne die konkrete Aufgabenstellung zu kennen, dazu nicht sagen.
Gruß Luc :-?
AW: Programm Code zu lang!
17.09.2005 10:27:39
Luschi
Hallo wuntschi,
wenn Du 144 CheckBoxen hast, dann brauchst Du auch 144 objektorientierte Ereignis-Prozeduren, die auf das Ereignis Click reagieren.
Habe Dir mal eine Beispiel gemacht, wo für die ersten 9 CheckBoxen das Ereignis an eine Sub übergeben wird.
https://www.herber.de/bbs/user/26674.xls
Gruß von Luschi
aus klein-Paris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige