Supportnet / Forum / Tabellenkalkulation
Summe auf nur sichtbare Zellen
Frage
Hallo Leute,
brauche Eure Hilfe.
Kann ich in Excel eine Summe auf nur sichtbare Zellen bilden?
Zeilen werden nach unterschiedlichen Kriterien ausgeblendet (AUTOFILTER)!
gruss
pelle
PS.: VBA/Makros nützen mir leider nichts,
da ich davon keine Ahnung habe!
Antwort 1 von Koebi
Hallo Pelle
Mit dieser Funktion sollte es gehen. (Nicht auf meinem Mist gewachsen, deshalb bin ich zuversichtlich, dass es klappt).
Function NettoSUMME(rngAll As Object)
Dim rngAct As Range
Dim dblWert As Double
For Each rngAct In rngAll.Cells
If Rows(rngAct.Row).Hidden = False Then
dblWert = dblWert + rngAct.Value
End If
Next rngAct
NettoSUMME = dblWert
End Function
Gruss
Köbi
Mit dieser Funktion sollte es gehen. (Nicht auf meinem Mist gewachsen, deshalb bin ich zuversichtlich, dass es klappt).
Function NettoSUMME(rngAll As Object)
Dim rngAct As Range
Dim dblWert As Double
For Each rngAct In rngAll.Cells
If Rows(rngAct.Row).Hidden = False Then
dblWert = dblWert + rngAct.Value
End If
Next rngAct
NettoSUMME = dblWert
End Function
Gruss
Köbi
Antwort 2 von pelle
Hallö Köbi,
tiefstapeln gilt nicht!
Wer/wo/was/wie baue ich die Funktion ein??
kann ich Dir mal Datei schicken?? (wohin?)
gruss
pelle
tiefstapeln gilt nicht!
Wer/wo/was/wie baue ich die Funktion ein??
kann ich Dir mal Datei schicken?? (wohin?)
gruss
pelle
Antwort 3 von Koebi
Hallo pelle
Du kannst mir die Datei gerne schicken. Meine mail-Adresse stimmt.
Du kannst die Funktion aber auch selber einbauen.
Arbeitsmappe öffnen
Mit Alt+F11 in die Entwicklungsumgebung wechseln (Visual Basic)
Menü Einfügen / Modul
In das jetzt geöffnete Fenster die obige Funktion kopieren
Fenster schliessen, bis wieder zurück auf Arbeitsblatt
Die Funktion kannst Du jetzt aufrufen in der markierten Zelle, wo Du die Summe brauchst, mit Einfügen / Funktion / Benutzerdefiniert
Wenns nicht klappt, bitte wieder melden.
Gruss
Köbi
Du kannst mir die Datei gerne schicken. Meine mail-Adresse stimmt.
Du kannst die Funktion aber auch selber einbauen.
Arbeitsmappe öffnen
Mit Alt+F11 in die Entwicklungsumgebung wechseln (Visual Basic)
Menü Einfügen / Modul
In das jetzt geöffnete Fenster die obige Funktion kopieren
Fenster schliessen, bis wieder zurück auf Arbeitsblatt
Die Funktion kannst Du jetzt aufrufen in der markierten Zelle, wo Du die Summe brauchst, mit Einfügen / Funktion / Benutzerdefiniert
Wenns nicht klappt, bitte wieder melden.
Gruss
Köbi
Antwort 4 von pelle
Hallo Köbi,
Du wirst es nicht glauben, ich habe es hingekriegt.
Rechnet auch richtig! :-)
Besten Dank!
gruss
pelle
Ps.: Ich weiss, dass Deine Adresse stimmt.
Hatte Dir vorher schon ne Mail geschickt. Kannst Du bist auf die Anmerkung in die Tonne kloppen!
Du wirst es nicht glauben, ich habe es hingekriegt.
Rechnet auch richtig! :-)
Besten Dank!
gruss
pelle
Ps.: Ich weiss, dass Deine Adresse stimmt.
Hatte Dir vorher schon ne Mail geschickt. Kannst Du bist auf die Anmerkung in die Tonne kloppen!
Antwort 5 von Aliba
Hi Pelle, Hi Köbi,
Pelle spricht von Autofilter, also geht es ja wohl um Summen gefilteter Daten. Hierfür gibt es die Funktion TEILERGEBNIS . Die Formel für die Summe der Spalte A würde z.B: lauten: =TEILERGEBNIS(9;A2:A50)
Die 9 steht für die Art der Funktion, in diesem Falle "SUMME". Gibt auch noch Kürzel für andere Funktionen, kann man gut nachlesen in der Excel - Hilfe, Stichwort TEILERGEBNIS.
CU Aliba
Pelle spricht von Autofilter, also geht es ja wohl um Summen gefilteter Daten. Hierfür gibt es die Funktion TEILERGEBNIS . Die Formel für die Summe der Spalte A würde z.B: lauten: =TEILERGEBNIS(9;A2:A50)
Die 9 steht für die Art der Funktion, in diesem Falle "SUMME". Gibt auch noch Kürzel für andere Funktionen, kann man gut nachlesen in der Excel - Hilfe, Stichwort TEILERGEBNIS.
CU Aliba
Antwort 6 von pelle
Hallo Ali,
Besten Dank!
Dein Vorschlag funktioniert hervorragend.
Der von Köbi natürlich auch, hat leider den
"Nachteil" sehr rechenintensiv.
Was mich stutzig macht, ist, dass ich zu Hause Teilergebnis ausprobiert habe,
aber was anderes als jetzt angezeigt bekam.
Geht zwar normal nicht, werde es mir aber mal anschauen!
gruss
Pelle
Ps.: Meld mich dann nochmal bei Dir!
Besten Dank!
Dein Vorschlag funktioniert hervorragend.
Der von Köbi natürlich auch, hat leider den
"Nachteil" sehr rechenintensiv.
Was mich stutzig macht, ist, dass ich zu Hause Teilergebnis ausprobiert habe,
aber was anderes als jetzt angezeigt bekam.
Geht zwar normal nicht, werde es mir aber mal anschauen!
gruss
Pelle
Ps.: Meld mich dann nochmal bei Dir!
Antwort 7 von Aliba
Hi Pelle,
Nachricht erhalten, danke schön. Wenn Du bei gesetztem Autofilter mit dem Teilergebnis andere Werte bekommen hast, kann das daran liegen, daß Deine Spalten keine Überschriften haben, d.h. du setzt zwar einen Filter, aber der Eintrag in der Zelle in der der Autofilter sitzt wird bei Teilergebnis mitgezählt.
CU Aliba
Nachricht erhalten, danke schön. Wenn Du bei gesetztem Autofilter mit dem Teilergebnis andere Werte bekommen hast, kann das daran liegen, daß Deine Spalten keine Überschriften haben, d.h. du setzt zwar einen Filter, aber der Eintrag in der Zelle in der der Autofilter sitzt wird bei Teilergebnis mitgezählt.
CU Aliba