an Hajo
29.01.2003 09:03:43
Felix
ich weiß Du magst es nicht wenn man dich persönlich unter Betreff aufruft.
Falls es Dich interessiert:
Es fehlte nur application.enabled = ...
Wollte dir nur mitteilen das ich eine Lösung für das gestrige Druckproblem gefunden habe. Nach dem Druck wird die Zelle auch wieder farbig.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Daten", "Tabelle1"
Cancel = True
Case Else
If MsgBox _
("Möchten Sie diesen Monat wirklich ausdrucken?" & Chr(13) _
, vbYesNo + vbQuestion, "Druckt " & ActiveSheet.Name) = vbYes Then
Application.EnableEvents = False
Range("K8").Select
ActiveCell.Interior.ColorIndex = xlNone
ActiveSheet.PrintOut
ActiveCell.Interior.ColorIndex = Sheets("tabelle1").Range("O3").Value
Application.EnableEvents = True
End If
Cancel = True
End Select
End Sub
Vielen Dank nochmal für Deine immer kompetente Hife
Gruß
Felix
Anzeige