Office: Sub für Mehrere Checkboxen

Hi Andreas,

wie viele Labels sind denn abzufragen? Wie heißen sie? Gibt es nur diese Labels oder auch noch weitere, die nicht in die Abfrage einbezogen werden sollen?

 

Hi Andreas,

was genau willst du denn mit dem Code erreichen? Beschreibe es doch mal in Worten, sodass man das nachvollziehen kann - eventuell kann man das ganze ja völlig anders lösen.


Übrigens: du musst den vorhergehenden Beitrag nicht zitieren - das belastet nur unnötig die Forendatenbank und außerdem kann man sich den Beitrag ja anzeigen lassen um bei Erfordernis zu sehen, was dort steht. *wink.gif*

 

Hallo Beverly,
entschuldige für die verspätete Antwort (war Abwesend),zur meiner Frage,dachte mir wenn der Code alle Labels abfragt kann man was am Code sparen. gedanken fehller von mir .
Ich habe aber noch eine Frage, kann man den Code von dir so Ändern daß ,wenn ein "U" in dem eingabebereich ,Abteilung.Cells(z, sp) steht keine eingabe gemacht wird , egal welche Checkbox man anklickt?
hier der Code:

PHP:

         Name1
Private Sub CheckBox1_Click()
Ausfuehren "A", CheckBox1.Value
End Sub

Private Sub CheckBox37_Click()
Ausfuehren "S", CheckBox37.Value
End Sub

Private Sub CheckBox50_Click()
Ausfuehren "K", CheckBox50.Value
End Sub

Sub Ausfuehren(strInhalt As String, blnAktiv As Boolean)
Dim dat As Date
dat = Me.Label1.Caption
sp = 1
Do While Abteilung.Cells(5, sp) <> dat
sp = sp + 1
Loop
z = 8
Do While Abteilung.Cells(z, 2) <> Me.Label2.Caption
z = z + 1
Loop
r = sp
If Format(Abteilung.Cells(5, r), "ddd") = "So" Then Exit Sub
If blnAktiv = True Then
Abteilung.Cells(z, sp) = strInhalt
Else
Abteilung.Cells(z, sp) = ""
End If
End Sub


 

Hi Andreas,

dann vorher einfach prüfen ob "U" in der Zelle steht:

Code: