Anwendung Makro nur auf aktivem Blatt
31.07.2015 13:11:11
Juergen
das nachfolgende Makro soll einen bestimmten Bereich (definiert in der Range) ausdrucken, zuvor aber die "j"s löschen.
Aktuell löscht das Makro alle Zellen mit einzelnen "J"s auf allen Arbeitsblättern. Wie muss ich das umschreiben, dass nur die "J"s im aktiven Arbeitsblatt gelöscht wird?
Sub Druck_ER()
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
Range("B2:F37").Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Jürgen
Anzeige