Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

an Hajo

an Hajo
29.01.2003 09:03:43
Felix
Hallo Hajo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: an Hajo
29.01.2003 09:45:05
Hajo_Zi

Hallo Felix

Danke für die Rückmeldung.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige