Teilergebnis(9,()) statt Summe()
Kai-Uwe Weichert
Könnt Ihr mir bei folgendem Problem helfen: ich möchte in Zukunft auf
die Summe()-Funktion von Excel verzichten und statt dessen mit der
Teilergebnis(9,())-Funktion rechnen.
Hintergrund: Ich muß in Excel häufig Positionen und Unterpositionen
erläutern. Wenn ich Zwischensummen ausweisen will, bin ich gezwungen,
die Endsummen durch "+"-Verweise auf die Zwischensummen zu errechnen,
sonst werden die Zwischensummen immer mit hinzuaddiert.
Dies ist ziemlich fehleranfällig - und seit gestern weiß ich, daß dieser
Effekt bei der Teilergebnis-Funktion nicht auftritt.
Beispiel: 1 1
2 2
Summe(a1:b1)=3 Teilergebnis(9,a1:b1)=3
3 3
4 4
Summe(d1:e1)=7 Teilergebnis(9,d1:e1)=7
Summe(a1:f1)=20 Teilergebnis(9,a1:f1)=10
Also möchte ich ein Makro bauen, daß
a) per Tastatur so arbeitet wie SHIFT+ALT+0
b) per Maus bei Klicken auf das Summe-Icon die Teilergebnis-Funktion
aufruft.
Im ersten Schritt muß in der Spalte über dem Zielfeld alle Zahlen
selektiert werden, bis ein Leerfeld auftritt (also etwas anders als in
der Summe-Funktion, aber per Tastaur mit STRG+Cursor-Auf machbar). Dann
soll im Zielfeld die Funktion Teilergebnis(9,Bereich) ausgeführt werden.
Schließlich soll das ganze wie oben erläutert aufrufbar sein.
Leider produziert mir der Makrorecorder nur absolute
Bereichsmarkierungen...
Anja Hinz
ich habe zwar keine Ahnung von Programmierung, aber wenn es Dir nur um
normale Summen aus Zwischensummen geht, dann gibt es eine andere
Alternative.
Wenn sie Dich interessiert, dann antworte noch mal, dann zeige ich Dir eine
andere Alternative.
Bis dann
Anja
Kai-Uwe Weichert schrieb in Nachricht <36D65680...@t-online.de>...
Anja Hinz
habe die Beschreibung doch noch fertig gemacht. Sie ist aus einer Doku von
mir, vielleicht hilft Dir das:
Bis dann
Anja
So erstellen Sie Summen aus Zwischensummen
Auch das kommt des öfteren vor. Sie haben eine Tabelle mit mehreren
einzelnen Zwischensummen und wollen nun eine Gesamtsumme bilden. Erstellt
man eine "Normale Summe" dann bekommt man ein Ergebnis, das doppelt so hoch
ist, wie das richtige Ergebnis.
Zwei Lösungen, aber bei beiden Lösungen müssen unbedingt Zwischensummen
vorhanden sein.
1. Weg ist gepfuscht (Aber clever)
Erstellen Sie eine normale Summe und das Endergebnis teilen Sie einfach
durch 2. Das ergibt dann automatisch das richtige Ergebnis, da ja das
falsche Ergebnis doppelt so hoch ist.
=Summe(A2:A40)/2
2. Weg (Richtiger Weg)
1. Markieren Sie die komplette Tabelle (mit allen Zahlen und Zwischesummen)
2. Klicken Sie einmal auf das Summensymbol.
3. Et voila, hier sind Ihre richtigen Gesamtsummen. Wenn Sie sich nun einmal
die neue Summe anschauen, dann erkennen Sie hier eine ähnliche
Formel:=SUMME(B18;B13;B8)
Excel hat automatisch erkannt, daß in dem markierten Bereich bereits Summen
vorhanden waren. Dies war für ihn der Hinweis, daß Sie nur die Summen aus
den einzelnen Zwischensummen haben wollen. Und das war ja auch so gewollt.
Excel ist doch clever, oder??!
Frank Arendt-Theilen
<wbs-b...@t-online.de> wrote:
>Schön war die Programmierung von Excel, als es noch kein VBA gab...
>
>Könnt Ihr mir bei folgendem Problem helfen: ich möchte in Zukunft auf
>die Summe()-Funktion von Excel verzichten und statt dessen mit der
>Teilergebnis(9,())-Funktion rechnen.
>
>Hintergrund: Ich muß in Excel häufig Positionen und Unterpositionen
>erläutern. Wenn ich Zwischensummen ausweisen will, bin ich gezwungen,
>die Endsummen durch "+"-Verweise auf die Zwischensummen zu errechnen,
>sonst werden die Zwischensummen immer mit hinzuaddiert.
>
>Dies ist ziemlich fehleranfällig - und seit gestern weiß ich, daß dieser
>Effekt bei der Teilergebnis-Funktion nicht auftritt.
>
>Beispiel: 1 1
> 2 2
>Summe(a1:b1)=3 Teilergebnis(9,a1:b1)=3
> 3 3
> 4 4
>Summe(d1:e1)=7 Teilergebnis(9,d1:e1)=7
>Summe(a1:f1)=20 Teilergebnis(9,a1:f1)=10
>
>Also möchte ich ein Makro bauen, daß
>a) per Tastatur so arbeitet wie SHIFT+ALT+0
>b) per Maus bei Klicken auf das Summe-Icon die Teilergebnis-Funktion
>aufruft.
>
>Im ersten Schritt muß in der Spalte über dem Zielfeld alle Zahlen
>selektiert werden, bis ein Leerfeld auftritt (also etwas anders als in
>der Summe-Funktion, aber per Tastaur mit STRG+Cursor-Auf machbar). Dann
>soll im Zielfeld die Funktion Teilergebnis(9,Bereich) ausgeführt werden.
>Schließlich soll das ganze wie oben erläutert aufrufbar sein.
Hallo Kai-Uwe,
hier die folgenden Schritte:
1) Erstelle in der PERSONL.XLS im Klassenmodul 'DieseArbeitsmappe' das
folgende Makro:
Private Sub Workbook_Open()
Application.OnKey "+%0", "TeilergebnisErmitteln"
End Sub
Damit wird die Tastenkombination Umsch+Alt+0 für das Makro
'TeilergebnisErmitteln' festgelegt.
2) Erstelle in einem allg. Modul der PERSONL.XLS das folgende Makro:
Sub TeilergebnisErmitteln()
Dim Startadresse, Endadresse, Formelzelle, Ergebnis
Formelzelle = ActiveCell.Address
Startadresse = ActiveCell.Offset(-1, 0).Address
Endadresse = ActiveCell.Offset(-1, 0).End(xlUp).Address
ActiveSheet.Range(Formelzelle).FormulaLocal = _
"=Teilergebnis(9;" & Startadresse & ":" & Endadresse & ")"
End Sub
3) Weise der SUMME-Schaltfläche das Makro 'TeilergebnisErmitteln' zu.
4) Vorgehensweise: Positioniere den Zellzeiger unter den Zellen, aus
denen das Teilergebnis gebildet werden soll, dann starte das Makro.
MfG Frank
---
E-Mail: Thei...@t-online.de
---