diverse ChBoxen sollen in diversen Blättern was bewirken. Ich dachte mir das so einfach: Die Nummern der Blätter sind historisch gewachsen und nicht linear. Die ChBxen habe ich korrespondierend benannt, also:
ChBx 5 für Blatt 5
ChBx 6 für Blatt 6
ChBx 9 für Blatt 9 usw.
Weil viele Nummern dazwischen nicht existieren, habe ich Resume Next vorangestellt, und dann _ sieht das Ganze so aus:
Dim Tabelle As Worksheet, Checkbox As Object
On Error Resume Next
For i = 5 To 99
With ("Tabelle" & i)
If ("Checkbox" & i).Value = True Then
.Range("Druckbereich").Cells.Interior.ColorIndex = xlNone
.Range("Druckbereich").PrintOut 'Papierpreis
.Range("Druckbereich").Cells.Interior.ColorIndex = 15
End If
End With
Next i
...
Das Programm aber meckert, daß die With-Variable einen benutzerdef. Typ oder Typ Object od Variant haben muß. Was mache ich falsch?Schönen Sonntag! - Jörg