Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vereinfachung für subroutinen

vereinfachung für subroutinen
15.03.2006 15:33:45
Müller
hallo, ich mal wieder...
kann man das irgendwie vereinfachen?

Private Sub chk0101_Click()
chkCheck
End Sub


Private Sub chk0102_Click()
chkCheck
End Sub


Private Sub chk0103_Click()
chkCheck
End Sub


Private Sub chk0104_Click()
chkCheck
End Sub


Private Sub chk0105_Click()
chkCheck
End Sub


Private Sub chk0106_Click()
chkCheck
End Sub


Private Sub chk0107_Click()
chkCheck
End Sub


Private Sub chk0201_Click()
chkCheck
End Sub


Private Sub chk0202_Click()
chkCheck
End Sub

mir kommt was in sinn wie ne for-to-schleife, aber wie binde ich innerhalb dieser das _click ein?
schönen gruss...

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vereinfachung für subroutinen
15.03.2006 15:44:50
Achim
Hi,
Recherche Klassenmodule
mfg Achim
AW: vereinfachung für subroutinen
15.03.2006 16:21:49
Müller
hmm...kannst das jmd vll etwas näher ausführen?
AW: vereinfachung für subroutinen
15.03.2006 16:30:41
Achim
Hi,
das Forum hat eine Recherche(im Menü Services), da findest du Lösungen.
mfg Achim
AW: vereinfachung für subroutinen
15.03.2006 16:34:51
müller
da hab ich aber nix gescheites gefunden - schon alleine der suchsyntax erscheint mir bei meiner fragestellung schwer - wenn du eine antwort hast, dann wäre es wesentlich effizienter, wenn du mir einfach nen kurzen hinweis oder paar codezeilen schreibst - ohne verweis auf andere quellen...
danke
AW: vereinfachung für subroutinen
15.03.2006 16:37:13
Achim
Hi,
such nach Nepumuk Klassenmodul, hab selbst auch keine Ahnung von Klassen.
mfg Achim
Anzeige
AW: vereinfachung für subroutinen
15.03.2006 17:15:14
Peter
Hallo Müller,
schau mal die Beispielmappe an. Klick auf eine CheckBox und dann auf OK.
https://www.herber.de/bbs/user/31932.xls
Vielleicht hilft dir das weiter. Hier sind die 12 CheckBoxes im KlassenModul zusammengefasst und das meldet, wer angeklickt wurde.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: vereinfachung für subroutinen
17.03.2006 10:03:17
Müller
bin noch dran - werde mich aber melden - ansonsten werde ich das halt 100 mal ausschreiben ;)
100 mal schreiben
17.03.2006 14:41:16
Reinhard
Hi Müller,
aus der .txt-Datei dann reinkopieren.
Option Explicit
Sub erzeuge()
Dim n As Integer, Satz As String
Open "c:\test\kurz.txt" For Output As #1
For n = 100 To 200
Satz = "Private Sub chk" & Right("0000" & n, 4) & "_Click()" & Chr(13)
Satz = Satz & "chkCheck" & Chr(13) & "End Sub" & Chr(13) & Chr(13)
Print #1, Satz
Next n
Close
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige