Brauche entweder eine Lösung, wie das Makro auch bei z.T. ausgeblendeten Tabellen funktioniert oder aber eine Lösung, dass ich festelegen kann, für welche Tabellen das bestehende Makro gelten soll. Habt ihr da Tipps?
Anbei das Makro:
Sub Wertkopie()
For i = 1 To Worksheets.Count
Worksheets(i).Select
ActiveSheet.Unprotect ("test")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
End Sub