Hi zusammen,
ich möchte in einer geschützten Excel-Datei in der einige Zellen nicht gesperrt sind, das Summenzeichen in der Symbolleiste verwenden können. Dies wird aber nach dem Schützen ausgeblendet (inaktiv)
Wer hat mir eine Idee dazu?
Gruss
Trix
fussel 
Beatrice „Excel 97 Summe“
Hi, Trix !
Nochmal ich- so geht es vielleicht noch besser !
Sub SummenFormel()
Dim rng As Range
Set rng = ActiveCell.Offset(0, 0)
On Error GoTo Ende
Set rng = Application.InputBox("Eingabe", "Bereichsauswahl", rng.Address, Type:=8)
On Error GoTo 0
Cells(rng.End(xlDown).Row, rng.Column).Offset(2, 0) = Application.WorksheetFunction.Sum(rng)
Ende:
End Sub
Die Zelle, welche aktiv ist - ist nun unwichtoig. Du kannst von jeder Zelle aus die Summe bilden !
Na, das wars wohl und Tschüs !
