ich habe folgendes Makro geschrieben:
Private Sub Drucken_Click()
If CheckBox1 = True Then
Sheets("Tabelle1").Range("A2:G36").PrintOut copies:=1, Collate:=Fals
If CheckBox2 = True Then
Sheets("Tabelle1").Range("A38:G72").PrintOut copies:=1, Collate:=Fals
If CheckBox3 = True Then
Sheets("Tabelle1").Range("A74:G108").PrintOut copies:=1, Collate:=Fals
If CheckBox4 = True Then
Sheets("Tabelle1").Range("A110:G144").PrintOut copies:=1, Collate:=Fals
End Sub
Es klappt ganz gut, wenn mind.eine CheckBox Aktiviert wird.Wenn keine Aktiviert ist und das makro wird ausgelöst gibt es eine Fehlermeldung.
(If Block ohne End If)
Wie kann ich di umgehen.
Gruß Werner