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 !
Eine Idee - schreib ein Makro zB.:
Sub Summe()
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-2]C[2])"
End Sub
Ablegen in der Personal.xls oder in Deiner Datei, wo Deine Makros halt sind. Dann kannst Du die Zellen verändern, welche summiert werden sollen !
Beatrice fussel „Hi,Trix ! Eine Idee - schreib ein Makro zB.: Sub Summe ActiveCell.FormulaR1C1...“
Hi,
ich danke Dir ganz herzlich für Deine schnelle Hilfe.
Deine Idee ist gut, bloss leider .........
es funktioniert keines Deiner Makros. Er mault mich trotzdem an, oder macht nicht das, was er sollte.
Danke Dir trotzdem
Gruss
Trix
fussel Beatrice „Hi, ich danke Dir ganz herzlich für Deine schnelle Hilfe. Deine Idee ist gut,...“
Hi Trix,
wieso???? ist mir nicht verständlich....? Was machst Du falsch ? Oder ich, was sollte wir ändern, damit Du zum Ergebnis kommst ?
Beatrice fussel „Hi Trix, wieso???? ist mir nicht verständlich....? Was machst Du falsch ? Oder...“
Hi,
ist schon OK. Jetzt funktioniert es. Ich hab bloss noch die Position ändern müssen in die das Resultat eingesetzt werden soll. Am liebsten hätte ich zwar, dass dies in die Zelle eingesetzt wird, die beim Aktivieren des Makros markiert ist, aber so funktioniert es nun auch.
Ich musste nur noch die entsprechende Zellen freigeben. und frage diese nun ab um das Resultat in der richtigen Zelle zu bekommen. (wird auf mehrere Tabellenblätter verteilt)
Vielen Dank für die tolle Hilfe.
Grüsschen
Trix
hmy (Anonym) Beatrice „Hi, ist schon OK. Jetzt funktioniert es. Ich hab bloss noch die Position ändern...“
Hi, Trix
Es freut mich Dir auch einmal auf dieser Strecke geholfen zu haben....
Nun, staunst Du was....?
Beatrice hmy (Anonym) „Hi, Trix Es freut mich Dir auch einmal auf dieser Strecke geholfen zu haben.......“
Wer bist Du?
fussel Beatrice „Wer bist Du?“
Hi Trix,
na wer wohl ????? Müsstest Du aber kennen....!
Beatrice fussel „Hi Trix, na wer wohl ????? Müsstest Du aber kennen....!“
Hääääääää?
Woher? Wieso? Was den?
fussel Beatrice „Hääääääää? Woher? Wieso? Was den? “
Hi, Trix
Denk mal ganz doll nach....
(Anonym) fussel „Hi, Trix Denk mal ganz doll nach....“
Sorry, entweder Du lüftest das Geheimniss, oder lässt es bleiben.
Aber dieses Brett ist nicht für solche Diskusionen gedacht.
gruss
Trix
fussel (Anonym) „Sorry, entweder Du lüftest das Geheimniss, oder lässt es bleiben. Aber dieses...“
Na, na Trix,
wer wird den gleich in die Luft gehen ????
Excelchen lebt noch .....ha,ha,ha - war doch mal etwas anders...
Sorry,sorry,sorry.... ist eine Ausnahme !
(Anonym) Beatrice „Excel 97 Summe“
Hi, Trix
noch mal ich: Oder so ein Makro, was Du nutzen kannst:
Sub SummenFormel()
'by Nike 05.03.01
Dim rng As Range
Set rng = ActiveSheet.Cells(1, 1)
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(1, 0) = Application.WorksheetFunction.Sum(rng)
Ende:
End Sub
Viel Erfolg - ich hoffe ich konnte helfen !
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 !
(Anonym) Beatrice „Excel 97 Summe“
fhgfhfh
(Anonym) Nachtrag zu: „fhgfhfh“
hgjhgjh
(Anonym) Nachtrag zu: „hgjhgjh“
winipcfg
S.F.T.I. (Anonym) Beatrice „Excel 97 Summe“
Hi Trix,
also bei meinen Versuchen konnte ich den Formalassistenten benutzen(fx)
Viel glück
S.F.T.I.
