Zellfärbung und Speicherung
15.11.2004 13:41:24
Michael
Private Sub CheckBox1_Click()
ThisWorkbook.Save
Workbooks.Open Filename:="D:\Dokumente und Einstellungen\azubi\Desktop\Mappe2"
If ToggleButton1.Value = True Then
Worksheets("Tabelle1").Cells(13, 3).Interior.ColorIndex = 3
Worksheets("Tabelle2").Cells(14, 3).Interior.ColorIndex = 4
Worksheets("Tabelle3").Cells(15, 3).Interior.ColorIndex = 5
Else
Worksheets("Tabelle1").Cells(13, 3).Interior.ColorIndex = 0
Worksheets("Tabelle2").Cells(14, 3).Interior.ColorIndex = 0
Worksheets("Tabelle3").Cells(15, 3).Interior.ColorIndex = 0
End If
Workbooks("Mappe2.xls").Close
End Sub
Funktioniert sehr gut, aber wie oder mit welchem Befehl kann ich Mappe2 speichern. Habe schon so einiges ausprobiert. Und wie kann ich, wenn ich das Kontrollhäkchen wieder entferne auf die gleiche Weise die Farben wieder in Originalzustand erscheinen lassen? Original grau, mit Häkchen rot und dies beliebig oft!
Wer kann helfen