VBA-Code optimieren
11.01.2005 19:13:47
Torsten
wie kann ich folgenden Code optimieren (es handelt sich ingesamt um 9 Sheets):
With Sheets("1")
.Unprotect password:="maze"
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
.Protect password:="maze"
End With
With Sheets("2")
.Unprotect password:="maze"
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
.Protect password:="maze"
End With
With Sheets("3")
.Unprotect password:="maze"
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
.Protect password:="maze"
End With
.....
Vielen Dank für Eure Tips.
Gruß
Torsten