Probleme bei Anklicken von Checkboxen
30.09.2019 10:13:16
Checkboxen
ich habe ein Problem mit meinem Code. In eine Userform habe ich verschiedene Checkboxen eingebaut, welche der Anwender auswählen kann. Je nachdem welche Checkbox ausgewählt wird (können auch alle sein), soll das Programm bestimmte Daten aus einer Übersicht entnehmen und diese speichern. Wenn ich die Prozeduren einzeln testenlasse, funktioniert es wunderbar. Ich möchte aber ja das ganze über die Userform steuern. Hier kommt es zu dem Fehler "Object required"
Hier mein Code. Ich hoffe ihr könnt mir helfen
Sub Programm()
Dim Ordner As String
Ordner = ThisWorkbook.Path & "\Ablage"
Application.ScreenUpdating = False
If CheckBox3.Value = True Then
Sheets("Sheet3").Select
ActiveSheet.Range("$A$1:$AI$300").AutoFilter Field:=1, Criteria1:= _
"*Bonus*"
Range("A3:B300").Select
Selection.Copy
Sheets("Bonus").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Reiter als PDF speichern
Sheets("Bonus").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ordner & "\" & _
Format(Date, "YYMMDD_") & "Bonus", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
_
_
OpenAfterPublish:=False
End If
If CheckBox4.Value = True Then
Sheets("Sheet3").Select
ActiveSheet.Range("$A$1:$AI$300").AutoFilter Field:=1, Criteria1:= _
"*Zeiten*"
Range("A3:B300").Select
Selection.Copy
Sheets("Zeiten").Select
Range("N7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Reiter als PDF speichern
Sheets("Zeiten").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ordner & "\" & _
Format(Date, "YYMMDD_") & "Zeiten", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
_
_
OpenAfterPublish:=False
End If
End Sub