Hallo Fachleute,
bin grad über einen meiner ersten Codes gestolpert und wollte ihn "modernisieren" (besser: ausmisten :-))), dabei stoße ich auf folgende Schwierigkeit:
bisher:
For t = 1 To Sheets.Count
Sheets(t).Select
If Not ActiveSheet.Name = "Plan" Then
ActiveSheet.Unprotect
ActiveWindow.Zoom = 95
...
...
...
Das wollte ich ändern in:
For t = 1 To Sheets.Count
With Sheets(t)
If Not .Name = "Plan" Then
.Unprotect
.Zoom = 95
... kommt allerdings bei der letzten Zeile ".Zoom = 95" die Meldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht." Geht das nicht ohne das Blatt zu aktivieren? Oder gibt's da ne Möglichkeit?
Für Eure Hilfe schon mal danke im Voraus und Grüße
Franz