ich stehe mal wieder vor einem Problem und hoffe ihr könnt mir weiterhelfen.
In einem Arbeitsblatt befinden sich mehrere Checkboxen (~ 20) . Jeder dieser Checkboxen ist beim aktivieren ein fester Druckbereich zugewiesen. Soweit so gut... =)
Nun habe ich mir einen Druckbutton erstellt, welcher vor dem Druck prüfen soll ob eine Checkbox aktiv ist, ist dies der Fall wird der entsprechende Druckbereich gedruckt.
Folgenden Code habe ich bereits:
Private Sub cmdDrucken_Click() 'Button "Druckmenü"
Dim ooElement As OLEObject
For Each ooElement In ActiveSheet.OLEObjects
If ooElement.progID = "Forms.CheckBox.1" Then
Sheets("Kennzahlen 2190").PrintOut
End If
Next ooElement
End Sub
Problem hierbei ist nun, dass es jetzt eine Endlosschleife gibt und er nicht mehr mit dem Drucken aufhört.Was muss in den Code rein, damit er jede Checkbox nur einmal ausdruckt bzw. nur ein Durchlauf macht?
Besten Dank schon mal.
Gruß
Jonathan