Sortierung zusammenrechnen

hallo
wollt heut eine tabelle mir erstellen die wie folgt in etwa aussieht

datum jahr Art Betrag Summe
01.01 2009 Versicherung 100 275
01.01 2009 Auto 50 175
24.12 2008 Versicherung 125 125

wenn ich nun den autofilter für spalte jahr und art einschalte kann ich ja auswählen ob ich auto oder versicherung angezeigt bekommen will…
jetzt würde ich aber gern in einer zelle die beträge von versicherung zusammenrechnen lassen und wenn ich auf auto schalte sollen in der zelle die beträge vom auto zusammengerechnet werden.
habe es probier mit =SUMME(D2:smiley:4) aber da zählt es ja das auto mit weil beim autofilter ja nur die zeilen ausgeblendet werden…

könnt ihr mir da helfen? weiß nicht weiter.
zudem kommt hinzu das ich mit einem makro jeweils eine neue zeile einfüge unterhalb der überschrift wobei auch gleich die formel für die summe eingetragen wird.

hoffe ihr könnt mich nachvollziehen und mir einen rat geben

Gruß sven

Hi Sven,

wenn ich nun den autofilter für spalte jahr und art einschalte
kann ich ja auswählen ob ich auto oder versicherung angezeigt
bekommen will…
jetzt würde ich aber gern in einer zelle die beträge von
versicherung zusammenrechnen lassen und wenn ich auf auto
schalte sollen in der zelle die beträge vom auto
zusammengerechnet werden.

schau mal in der Hilfe zu SummeWenn.

zudem kommt hinzu das ich mit einem makro jeweils

Was bedeutet „jeweils“?

eine neue
zeile einfüge unterhalb der überschrift wobei auch gleich die
formel für die summe eingetragen wird.

Mir unklar was da mit dem Makro zusammenhängt.
Zeige mal hier den Makrocode bzw. lade mal die Datei hoch mit FAQ:2861

Gruß
Reinhard

also das makro sieht folgendermaßen aus

Sub neueZeile()

’ neueZeile Makro
’ Makro am 26.01.2009 von Sven aufgezeichnet


Rows(„2:2“).Select
Selection.Insert Shift:=xlDown
Range(„E3“).Select
Selection.AutoFill Destination:=Range(„E2:E3“), Type:=xlFillDefault
Range(„E2:E3“).Select
Range(„A2:E2“).Select
Selection.Font.Bold = False
Range(„A2“).Select
End Sub

mit der summewenn funktion muss ich mich ja wieder auf ein kriterium festlegen doch das will ich ja nicht
diese tabelle soll erweitert werden durch viele verschiedene kostenarten und da wäre eine funktion angebracht die das gerade „sichtbare“ zusammenrechnet also ohne dem was ausgeblendet wird

habs mal hochgeladen
hier der link

http://www.hostarea.de/server-01/Januar-f3a29d30c3.xls

Hallo djsven,

mit TEILERGEBNIS(9) wird Dir die Summe der sichtbaren Zellen in einer gefilterten Spalte angezeigt.

z:B.
=TEILERGEBNIS(9;B2:B11

Am schnellsten geht es, wenn Du den Filter setzt und anschließend
in die Zelle gehst wo Du die Summe sehen willst. Jetzt auf den Summenbutton klicken. EXCEl zeigt jetzt automatisch TEILERGEBNIS und nicht SUMME an. Anschließen noch den Bereich (im Beispiel ist es B2:B11) setzen und schon hast Du die richtige Summe.

Es gibt noch andere Teilergebnisse, Du kannst sie mit der Hilfe anzeigen lassen.

Viel Erfolg
Ullrich Sander

http://www.hostarea.de/server-01/Januar-f3a29d30c3.xls

Hi Sven,

F ist eine Hilfsspalte, ggfs. Schriftfarbe auf weiß stellen o.ä.
Die Formel für den Namen „Höhe“ vergeben wenn du in F2 stehst.

Das Makro habe ich mir noch nihct angesehen.

Tabellenblatt: H:\[Januar-f3a29d30c3.xls]!Tabelle1
 │ A │ B │ C │ D │ E │ F │
──┼─────────┼──────┼──────────────┼──────────────┼────────────────┼────┤
1 │ Datum │ Jahr │ Art │ Betrag │ Summe │ │
──┼─────────┼──────┼──────────────┼──────────────┼────────────────┼────┤
2 │ 1. Jan │ 2009 │ Versicherung │ 100,00 € │ 275,00 € │ 10 │
──┼─────────┼──────┼──────────────┼──────────────┼────────────────┼────┤
3 │ 1. Jan │ 2009 │ Auto │ 50,00 € │ │ 10 │
──┼─────────┼──────┼──────────────┼──────────────┼────────────────┼────┤
4 │ 24. Dez │ 2008 │ Versicherung │ 125,00 € │ │ 10 │
──┴─────────┴──────┴──────────────┴──────────────┴────────────────┴────┘
Benutzte Formeln:
E2: =WENN(SUMME($F$1:F2)\>10;"";SUMMEWENN($F$2:blush:F$1000;10;$D$2:blush:D$1000))
E3: =WENN(SUMME($F$1:F3)\>10;"";SUMMEWENN($F$2:blush:F$1000;10;$D$2:blush:D$1000))
E4: =WENN(SUMME($F$1:F4)\>10;"";SUMMEWENN($F$2:blush:F$1000;10;$D$2:blush:D$1000))
F2: =Höhe
F3: =Höhe
F4: =Höhe

Festgelegte Namen:
Höhe : =WENN(ZELLE.ZUORDNEN(17;Tabelle1!F2)=0;"";10) \*rel. Name, so gültig in F2

Zahlenformate der Zellen im gewählten Bereich:
A1,B1:B4,C1:C4,D1:E1,F1:F4
haben das Zahlenformat: Standard
A2:A4
haben das Zahlenformat: T. MMM
D2:smiley:4,E2:E4
haben das Zahlenformat: \_-\* #.##0,00 €\_-;-\* #.##0,00 €\_-;\_-\* "-"?? €\_-;\_-@\_-

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

Hallo Sven,

nimm mal diese prozedur:

Sub neueZeile()
Rows(2).Insert
Range(„E3:F3“).Copy Destination:=Range(„E2“)
End Sub

Gruß
Reinhard

danke für dein bemühen
habe die formeln in spalte E mal so eingegeben

doch als ich in F2 die formel für höhe eingeben wollt(habe sie so von deinem beitrag aus kopiert) kam die meldung
„Diese Funktion ist ungültig“ und es wurde mir „zelle.zuordnen“ markiert.

könnte man die ganze sache nicht auch mit einem makro gestalten das beim ausführen dann alle sichtbaren zahlen zusammenrechnet? oder sieht ein makro auch immer alle zahlen egal ob ausgeblendet oder nicht?

muss vielleicht an dieser stelle noch erwähnen das ich mit excel 2003 arbeite

gruß sven