ich nutze seit Jahren folgendes Makro - völlig problemfrei:
Sub Druck_ER()
With ActiveSheet
.Range("A1:O150").Replace "j", "", lookat:=xlWhole, MatchCase:=False
.Range("B2:F37").PrintOut Copies:=1, Collate:=True
End With
End Sub
1. um alle einzelnen "J"-Buchstaben auf dem aktuellen Blatt zu löschen und2. die aktuelle Seite zu drucken
Die gesamte Arbeitsmappe hat einen Blattschutz - die Zellen mit dem "J" sind davon natürlich ausgenommen (nicht ausgeblendet und nicht gesperrt).
Seit kurzem funktioniert nur noch der Druck - das Löschen nicht mehr (hat es jahrelang getan!).
Wenn ich den Arbeitsblatt-Schutz aufhebe tut es wieder seinen Dienst. Das hat aber immer schon funktioniert - auch mit Arbeitsblatt-Schutz!
Ich bin völlig ratlos. Kann das an einem Sicherheitsupdate von Windows 10 o.ä. liegen?
Bin für jeden Tipp dankbar.
Juergen