Office: Sub für Mehrere Checkboxen

Hallo zusammen,
Ich finde im Netz keine Informationen (vlt. suche ich ja vom Grund aus falsch).
gibt es eine möglichkeit eine sub für drei checkboxen clickevents zu schreiben?

irgendwie sowas
Sub checkboxes1-3_click(), oder wie geht das?

diese drei Codes will ich vereinigen,bis auf die Checkboxen und die ausgebe Werte sind die Identisch.

PHP:

         Private Sub CheckBox15_Click()
Dim dat As Date
dat = Me.Label1.Caption
sp = 1
Do While Cells(5, sp) <> dat
sp = sp + 1                                              Loop                                                                                                                  Z = 8
Do While Cells(Z, 2) <> Me.Label3.Caption
Z = Z + 1
Loop
r = sp
If Format(Cells(5, r), "ddd") = "So" Then GoTo sprung
If CheckBox1.Value = True Then
Cells(Z, sp) = "A"
Else
Cells(Z, sp) = ""
sprung:
Exit Sub
End Sub

Private Sub CheckBox16_Click()
Dim dat As Date
dat = Me.Label1.Caption
sp = 1
Do While Cells(5, sp) <> dat
sp = sp + 1                                                 Loop                                                                                                                  Z = 8
Do While Cells(Z, 2) <> Me.Label3.Caption
Z = Z + 1
Loop
r = sp
If Format(Cells(5, r), "ddd") = "So" Then GoTo sprung
If CheckBox16.Value = True Then
Cells(Z, sp) = "U"
Else
Cells(Z, sp) = ""
sprung:
Exit Sub
End Sub

Private Sub CheckBox17_Click()
Dim dat As Date
dat = Me.Label1.Caption
sp = 1
Do While Cells(5, sp) <> dat
sp = sp + 1                                                 Loop                                                                                                                Z = 8
Do While Cells(Z, 2) <> Me.Label3.Caption
Z = Z + 1
Loop
r = sp
If Format(Cells(5, r), "ddd") = "So" Then GoTo sprung
If CheckBox17.Value = True Then
Cells(Z, sp) = "K"
Else
Cells(Z, sp) = ""
sprung:
Exit Sub
End Sub


:)

 

Hallo Andreas,

KLASSE ist der Suchbegriff.

 

Hi,
Dann hab ich doch richtig gesucht ,komme aber irgend wie damit nicht klar!
Danke ,muß ich wohl weiter Probieren.

Gruß Andreas

 

Grundsätzlich hat Hajo Recht, aber bei zwei oder drei Checkboxen könntest Du den Code in eine eigene Sub auslagern und dann diese im Event aufrufen. Je mehr Checkboxen, desto "mühseliger" und fehleranfälliger wird das.

 

Hi Andreas,

wenn es nur 3 CheckBoxen sind, dann kannst du es mit einer ausgelagerten Sub lösen, an die du den Eintrag übergibst:

Code:

 

Hallo Leute, kann jemand anhand von Meinem Code mir BITTE erkläheren wie es mit Klassen Programierung geht, ich habe Tolle Einleitungen im Netz gefunden und Trotzdem verstehe ich nicht wie es gemacht wird,seit bitte so gut ich will es verstehen.

@ Karin ,
danke für deinen Vorschlag, eine Frage hätte ich dazu, ist es so gewollt das die checkboxen 16 und 17 nur in verbindung mit checkbox15 einen Wert sätzen?

Danke
Gruß Andreas

 

Und was genau verstehst Du nicht?

Hier ein Beispiel
http://www.ms-office-forum.net/forum...0&d=1483134344
Der Thread dazu
http://www.ms-office-forum.net/forum...=338415&page=2
Und vpn einem Experten
http://spreadsheetpage.com/index.php...one_procedure/
Auch hier
https://stackoverflow.com/questions/...52328#41352328

Hier Klassen
VBA Class Modules - The Ultimate Guide - Excel Macro Mastery

 

Hi Andreas,

ich verstehe leider gerade nicht was du meinst.
Jede Checkbox startet die ausgelagerte Sub und übergibt dabei den betreffenden Wert, damit er in die relevante Zelle geschrieben wird - an deinem Ursprungscode daazu habe ich nichts verändert.

 

Im Anhang findest du eine Beispieldatei.
Deinen "Fall" konnte ich nicht simulieren, weil der Code von dir nicht komplett war. Aber es geht um die Klassen.

Grundsätzlich ist der Aufwand, wenn du mit nur wenigen Steuerelementen arbeitest, in der Klassenprogrammierung fast höher, als mit der hier mehrmals vorgeschlagenen Technik, die Parameter in eine normale Prozedur zu übergeben.
Ereignissteuernde Klassen (WithEvents) machen eigentlich nur Sinn, wenn du zum Zeitpunkt des Programmierens noch gar nicht weiss, weil viele Steuerelemente die Userform mal haben wird. Z.B. wenn sie dynamisch aufgrund von Eingaben des Benutzers erstellt oder entfernt werden.
Oder aber, wenn es sehr viele Steuerelemente sind.
Im Beispiel ist auch eine Userform mit 56 OptionButtons. Dafür jedes einzelne Ereignis, auch wenn das per copy/paste ginge, ist ätzend.

Schau dir die Beispiele einfach an. Ich habe sie etwas kommentiert, so dass die Zusammenhänge klar sein sollten.
Ansonsten einfach fragen.
Dein Beispiel kann aber nicht funktionstüchtig gemacht werden, wenn du die Datei nicht zur Verfügung stellst.
Zudem ist eine Checkbox für ein Clickereignis wenig sinnvoll, da es auslöst, egal ob der "Haken" damit gesetzt oder entfernt wird.

 

Hallo Zusammen,
als erstes Vielen Dank für eure Mühe ihr seit Super.

@Beverly
das Problem liegt auch am Ursprungscode und zwar an diese Stehle

PHP:

         If CheckBox1.Value = True Then
Cells(Z, sp) = strInhalt
Else
Cells(Z, sp) = ""
End If


 

Hi Andreas,

was meinst du mit "umgehen"? Das hängt doch davon ab, was du erreichen willst - wenn halt Bedingung sein soll, dass der Inhalt nur dann in die Zelle geschrieben wird wenn die CheckBox1 aktiviert ist, dann ist der Code an dieser Stelle korrekt. Wenn das nicht so sein soll, musst du schon mal konkret sagen, was ablaufen soll.

 

\@ Beverli,
Hallo, es were Super wenn beim anklicken von Checkbox15 ein "A" kommt und bei Wiederholte klick wieder verschwindet. genau so bei den anderen zwei Checkboxen ohne Checkbox1 zu Aktivieren.
Danke!

@all
vlt. Interessier sich jemand für meinen Fall, hier die Datei.

Danke
Gruß Andreas

P.S.
Verzeit mir die Fehler, bin ein Absoluter Beginner.*Smilie

 

Hi Andreas,

in deiner Mappe kann ich meinen geposteten Code nicht finden und ich habe auch eine Lust, in den vielen UserForm die vielleicht passende zu suchen.

Vom Prinzip her so:

Code:

Aber m.E. bringt dir das überhaupt nichts, denn sobald mehrere CheckBoxen angeklickt werden, wird im Tabellenblatt immer nur der Zustand existieren, welchen die zuletzt angeklickte CheckBox repräsentiert - wären da nicht eher OptionButton angebracht, um nur 1 Auswahl von 3 möglichen zuzulassen?

 

Beverly Danke es Funktioniert und der Tip mit OptionButton ist auch Super ich habe es schon umgesätzt.

Danke für die Hilfe!

 

Aber m.E. bringt dir das überhaupt nichts, denn sobald mehrere CheckBoxen angeklickt werden, wird im Tabellenblatt immer nur der Zustand existieren, welchen die zuletzt angeklickte CheckBox repräsentiert - wären da nicht eher OptionButton angebracht, um nur 1 Auswahl von 3 möglichen zuzulassen?