- #1
N
nok106
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 10.09.2005
- Beiträge
- 108
- Reaktionspunkte
- 0
- Ort
- Brunsbüttel
Hallo Excelaner,
mit folgendem Makro kopiere ich, vor dem Ausdruck, die Formatierung in ein anderes Blatt.
Nach dem Drucken sollten die Formate wieder zurück gesetzt werden aber ohne Erfolg.
Hat jemand eine Idee wo der Fehler liegt ?
Wenn ja, dann bitte ich um Korrektur.
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
MfG
Odje
Hat sich inzwischen erledigt, habe den Fehler gefunden !!!!
mit folgendem Makro kopiere ich, vor dem Ausdruck, die Formatierung in ein anderes Blatt.
Nach dem Drucken sollten die Formate wieder zurück gesetzt werden aber ohne Erfolg.
Hat jemand eine Idee wo der Fehler liegt ?
Wenn ja, dann bitte ich um Korrektur.
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
MfG
Odje
Code:
Sub Makro1()
Application.ScreenUpdating = False
Rem Formate sichen
Cells.Copy
Sheets(Ablage).Cells(1, 1).PasteSpecial xlPasteFormats
Rem Füllfarbe löschen
Range(C2:D2,E2,C7,D7,E7,C31:D31,E31).Interior.ColorIndex = xlNone
Rem Rahmen löschen
Range(C7,D7,E7,C31:D31,E31).Borders.LineStyle = xlNone
Rem Druckbefehl
'
'
'
Rem Formate zurückschreiben
Sheets(Ablage).Cells.Copy
Cells(1, 1).PasteSpecial xlPasteFormats
Sheets(Ablage).Cells.Clear
Range(A1).Activate
Application.ScreenUpdating = True
End Sub
Hat sich inzwischen erledigt, habe den Fehler gefunden !!!!