Zwei Makros mögen sich nicht (Druck)
31.07.2015 10:11:04
Juergen
ich habe 2 wunderbar funktionierende Makros.
1. Vor jedem Druck sollen alle "j"s und "ls" gelöscht werden (in "DieseArbeitsmappe")
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("A1:O150").Replace "j", "", lookat:=xlWhole, MatchCase:=False
ws.Range("A1:O150").Replace "l", "", lookat:=xlWhole, MatchCase:=False
Next ws
End Sub
2. Definition des Ausdruck-Bereichs (das habe ich individuell für 30 Arbeitsblätter) - (in " _ Modul 1")
Sub Druck_BAB()
Range("B2:J27").Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Jedes für sich funktioniert einwandfrei. In Kombination (bei Druckbefehl über das 2. Makro) aber bekomme ich für das 1. Makro immer einen Fehler . Kann mir da einer einen heißen Tipp geben?
Jürgen