Checkbox=False klappt nicht
25.01.2013 08:41:02
Volly
ich ich bin guter Hoffnung, dass Ihr mir Helfen könnt.
Hab´ mir mit Hilfe des Macrorecorder und diversen Foren (auch eure) ein kleines VBA Sribt zusammen gebastelt. Leider bekomme ich einen Fehler nicht weg.
Startpunkt ist eine geöffnete Excel-Datei mit vier Tabellen. Die Tabelle "Bericht" soll per Knopfdruck (CommandButton) kopiert werden (klappt), Unter neuem Namen gespeichert werden (klappt auch), es werden ein paar Zellen geändert (klappt auch). Nun sollen aber auch die 9 Checkboxen (1-9) auf False gesetzt werden (klappt nicht!!). Das schleißen der original Datei klappt auch. Unten mein Code.
Hat einer eine Idee?
Private Sub CommandButton1_Click()
Dim x As String
x = ThisWorkbook.Name
Sheets("Bericht").Select
Sheets("Bericht").Copy
Worksheets("Bericht").Cells(12, 8) = ""
Worksheets("Bericht").Cells(12, 8) = "Turnusmäßige Wartung"
Worksheets("Bericht").Cells(12, 1) = "Auftrag:"
Worksheets("Bericht").Cells(54, 8) = ""
Worksheets("Bericht").Cells(14, 8) = ""
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
CheckBox9 = False
ActiveWorkbook.SaveAs "P:\Wartungen\zz neue Wartung zum einsortieren\" _
& Range("H8") & "," & Range("H7") & "," & Range("H9") & "," & Range("H16") & ".xls"
Workbooks(x).Close savechanges:=False
End Sub