Anwendung Makro nur auf aktivem Blatt

Bild

Betrifft: Anwendung Makro nur auf aktivem Blatt
von: Juergen
Geschrieben am: 31.07.2015 13:11:11

Hallo,
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
Danke vorab!
Jürgen

Bild

Betrifft: AW: Anwendung Makro nur auf aktivem Blatt
von: ransi
Geschrieben am: 31.07.2015 13:19:00
Hallo,
Ungestet:

Sub Druck_ER()
    
 with activesheet
 .Range("A1:O150").Replace "j", "", lookat:=xlWhole, MatchCase:=False
.Range("A1:O150").Replace "l", "", lookat:=xlWhole, MatchCase:=False
    
    
    .Range("B2:F37").PrintOut Copies:=1, Collate:=True
end with
End Sub


Bild

Betrifft: AW: Anwendung Makro nur auf aktivem Blatt
von: Juergen
Geschrieben am: 31.07.2015 14:09:11
Prima, scheint zu klappen.
Vielen Dank!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Anwendung Makro nur auf aktivem Blatt"