Hallo Excel-Experten,
nochmals eine frage zu Excel 97:
Die Zellen eines Arbeitsblatts sind bis auf wenige Zellen schreibgeschützt, die Hintergrundfarbe ist grau, einige Zellen besitzen eine andere Hintergrundfarbe (Füllfarbe).
Folgendes Problem:
Ein Print-Makro soll über ein Button gestartet werden, der den Blatt- und Arbeitsmappenschutz aufhebt, die Hintergrundfarbe dieses Blattes auf weiß setzt, den Ausdruck startet, und die Farben wieder zurücksetzt und den Schutz wieder aktiviert.
Ohne Schutz funktioniert die Druckausgabe, mit Schutz bekomme ich Laufzeitfehler, und mit "On Error Resume Next" bleibt die Hintergrundfarbe grau...
Vielleicht könnt ihr mir ja helfen.
Danke
Maart
Hier mein Makro:
Private Sub CommandButton1_Click()
'Print Seite Blatt01
'On Error Resume Next
Sheets(blatt01).Unprotect Password = "MC"
Range("A1:V35").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$V$35"
' Hintergrundfarbe auf weiß setzen
Range("A1:V35").Select
Selection.Interior.ColorIndex = 2 ' weiß
' Print
' Druckbereich ON
Worksheets("Blatt01").Activate
Range("A1:V35").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$V$35"
ActiveSheet.PrintOut , 1, 1
' Hintergrundfarbe auf grau und einige Zellen
' mit "alter" Hintergrundfarbe wieder einsätzen
Range("A1:V35").Select
Selection.Interior.ColorIndex = 15 ' grau
Range("C3:D3").Select
Selection.Interior.ColorIndex = 35 ' hellgrün
Range("G10").Select
Selection.Interior.ColorIndex = 34 ' Cyan
Range("C4,E4,G4,H4,L18:L27").Select
Selection.Interior.ColorIndex = 36 ' gelb
' Druckbereich OFF
Range("A1:V35").Select
ActiveSheet.PageSetup.PrintArea = ""
Range("Q27").Select
Sheets(blatt01).Protect Password = "MC"
End Sub