Blattschutz
30.09.2003 08:36:43
Stefan
mein problem ist, das das makro nur arbeitet, wenn ich es in vb starte. mit den buttons geht leider gar nix! kann mir da jemand helfen?
Sub Berechnen()
On Error Resume Next
ActiveSheet.Unprotect "test"
Columns("C:C").Select
Selection.EntireColumn.Hidden = False
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("C1").Select
ActiveSheet.Protect "test"
End Sub
Sub Löschen()
On Error Resume Next
ActiveSheet.Unprotect "test"
Range("C1").Select
Selection.ClearContents
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "test"
End Sub
Anzeige