Code optimieren
12.11.2005 15:11:03
Frank
ob es wihl eine Möglichkeit gibt, untenstehende zeile zu vereinfachen?
Vielen Dank für Eure Hilfe
Viele Grüße
Frank
Private Sub cmdOK_Click()
If CheckBox1.Value = True Then
Sheets("Feiertage").Select
Cells(4, 1) = 1
Sheets("daten").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CheckBox2.Value = True Then
Sheets("Feiertage").Select
Cells(4, 1) = 2
Sheets("daten").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CheckBox3.Value = True Then
Sheets("Feiertage").Select
Cells(4, 1) = 3
Sheets("daten").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CheckBox4.Value = True Then
Sheets("Feiertage").Select
Cells(4, 1) = 4
Sheets("daten").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub