Auto Summe am Ende der Tabelle

Forumthread: Auto Summe am Ende der Tabelle

10.12.2005 16:47:17

Rocco

Hallo,
ich erstelle gerade eine Excel-Tabelle zum Schreiben von Angeboten.
In der rechten Spalte steht geweils der Preis der einzelnen Positionen und am Ende dieser Spalte sollen immer 3 Dinge erscheinen - "Zwischensumme", "16% MwSt" und "Gesamtsumme". Ist ja auch nicht das Problem, aber je nach Angebot variiert die Anzahl der Zeilen in dieser Spalte. Also möchte ich, dass die o.g. 3 Dinge immer 2 Zeilen unter dem letzten Eintrag der Spalte erscheinen.
Ist das irgendwie machbar? Habe schon zig Internetseiten durchsucht, bin aber nicht fündig geworden.
Schon mal vielen Dank für eure Hilfe im Voraus!
MfG
Rocco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auto Summe am Ende der Tabelle

10.12.2005 17:09:18

Oliver

Hallo
Du könntest das Erstellen der besagten drei Zeilen als Makro aufzeichnen. Dann kannst Du eine Schaltfläche bauen, die den besagten Code an der derzeit aktiven Stelle einfügt.
Alternativ kann man über ein Makro die letzte ZElle einer Splate mit Inhalt ermitteln. Hiervon ausgehend kannst Du dann zwei Zeilen nach unten gehen und dort denn aufgezeichneten Code einfügen.
Machbar íst es aber in jedem Fall.

AW: Auto Summe am Ende der Tabelle

10.12.2005 17:12:50

Erich

Hallo Rocco,
meinst du das so?
(Als "rechte Spalte" habe ich mal die Spalte E verwendet.)

	D	E	F	G
1
2
3		16,45
4
5
6		17,06
7
8		1.102,33
9
10	Zwischensumme	1.135,84
11	16% MwSt	181,73
12	Gesamtsumme	1.317,57

Formeln der Tabelle

E10 : =SUMME(E$1:E8)
E11 : =E10*0,16
E12 : =E10+E11

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Auf die Tabelle habe ich einen Button "Endsumme" gelegt, dessen Code die letzten drei Zeilen erzeugt hat. Der Code kommt in den Code der Tabelle: Option Explicit Private Sub Endsumme_Click() Dim lngLast As Long lngLast = Cells(Rows.Count, 5).End(xlUp).Row Cells(lngLast + 2, 4) = "Zwischensumme" Cells(lngLast + 3, 4) = "16% MwSt" Cells(lngLast + 4, 4) = "Gesamtsumme" Cells(lngLast + 2, 5).FormulaR1C1Local = "=SUMME(Z1S:Z(-2)S)" Cells(lngLast + 3, 5).FormulaR1C1Local = "=Z(-1)S*0,16" Cells(lngLast + 4, 5).FormulaR1C1Local = "=Z(-2)S+Z(-1)S" End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Auto Summe am Ende der Tabelle

10.12.2005 17:18:48

th.heinrich

hallo Rocco
aber je nach Angebot variiert die Anzahl der Zeilen in dieser Spalte
wie gehst Du dabei vor?
gruss thomas

AW: Auto Summe am Ende der Tabelle

10.12.2005 17:27:33

Rocco

Danke erstmal,
da ich nicht so ganz bewandert bin in Excel, habe ich es zwar geschafft, den Code einzufügen, aber wie ist das mit dem Button erstellen gemeint?
MfG
Rocco

AW: Auto Summe am Ende der Tabelle

10.12.2005 18:00:55

Erich

Hallo Rocco,
das kannst du so machen:
Steuerelement-Toolbox einblenden (geht mit der rechten Maustaste in einem freien Bereich der Funktionsleiste oder mit "Ansicht - Symbolleisten"
In dieser Symbolleiste klickst du das erste Symbol (blaues Dreiecks-Lineal, "Entwurfsmodus") an.
Auch in der Symbolleiste wählst du das Symbol Button (Beschriftung: "Befehlsschaltfläche") aus. Dann kannst du auf deiner Tabelle einen Button als Rechteck "zeichnen".
Mit der rechten Maustaste kommst du an die Eigenschaften des Buttons. Den Namen und die Beschriftung (Caption) änderst du con Commandbutton1 um in Endsumme.
Sinnvoll ist es, die Eigenschaft "TakeFocusOnClick" auf False zu stellen.
Danach ist der Button fertig, du kannst den Entwurfsmodus wieder ausschalten und die Steuerelement-Toolbox ausblenden.
Viel Erfolg! (Wenn du Rückfragen hast, kannst du die gern hier stellen.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Infobox / Tutorial

Automatische Summenzeile am Ende der Tabelle einfügen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und erstelle deine Tabelle mit den Preisen in einer Spalte (z.B. Spalte E).
Füge einen Button hinzu:
- Aktiviere die Steuerelement-Toolbox durch einen Rechtsklick in der Funktionsleiste und wähle „Symbolleisten“.
- Klicke im Entwurfsmodus auf die „Befehlsschaltfläche“ und ziehe diese auf deine Tabelle.
- Rechtsklicke auf den Button und ändere die Beschriftung auf „Endsumme“.

Füge den VBA-Code hinzu:

Öffne den VBA-Editor (Alt + F11).
Füge den folgenden Code in das Modul des Buttons ein:

Option Explicit
Private Sub Endsumme_Click()
   Dim lngLast As Long
   lngLast = Cells(Rows.Count, 5).End(xlUp).Row
   Cells(lngLast + 2, 4) = "Zwischensumme"
   Cells(lngLast + 3, 4) = "16% MwSt"
   Cells(lngLast + 4, 4) = "Gesamtsumme"
   Cells(lngLast + 2, 5).FormulaR1C1Local = "=SUMME(E1:E" & lngLast & ")"
   Cells(lngLast + 3, 5).FormulaR1C1Local = "=E" & (lngLast + 2) & "*0,16"
   Cells(lngLast + 4, 5).FormulaR1C1Local = "=E" & (lngLast + 2) & "+E" & (lngLast + 3)
End Sub

Teste deinen Button, indem du darauf klickst. Die Summenzeilen sollten nun automatisch unter dem letzten Preis erscheinen.

Häufige Fehler und Lösungen

Fehler: Button funktioniert nicht
- Stelle sicher, dass der Entwurfsmodus deaktiviert ist und der Button korrekt verlinkt ist.
Fehler: Formeln zeigen Fehler an
- Überprüfe die Zellreferenzen im VBA-Code und stelle sicher, dass du die richtige Spalte angibst.

Alternative Methoden

Direkte Excel-Formeln: Wenn du keine VBA-Makros verwenden möchtest, kannst du die Summen manuell eingeben:
- Schreibe die Summenformeln direkt in die Zellen unter den letzten Einträgen, z.B.:
```
=SUMME(E1:E8)  // für Zwischensumme
=E10*0,16      // für MwSt
=E10+E11       // für Gesamtsumme
```
Tabelle erstellen: Verwende die Excel-Funktion „Tabelle“, die eine automatische Summenzeile anbieten kann. Aktiviere die Tabelle über „Einfügen“ > „Tabelle“ und aktiviere die Summenzeile in den Tabelleneinstellungen.

Praktische Beispiele

Stelle dir vor, du hast folgende Preise in Spalte E:

E1: 16,45
E2: 17,06
E3: 1.102,33

Nach dem Klick auf den Button „Endsumme“ erscheinen folgende Ergebnisse:

E10 (Zwischensumme): =SUMME(E1:E3) → 1.135,84
E11 (16% MwSt): =E10*0,16 → 181,73
E12 (Gesamtsumme): =E10+E11 → 1.317,57

Tipps für Profis

Nutze Tastenkombinationen: Um schneller in den VBA-Editor zu gelangen, verwende Alt + F11.
VBA optimieren: Lerne grundlegende VBA-Programmierung, um deine Makros weiter anzupassen und zu optimieren.
Sichere deine Arbeitsmappe: Speichere deine Excel-Datei regelmäßig, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Automatische Summenfunktion in Excel verwenden?
Du kannst die automatische Summenfunktion direkt über das Menü „Formeln“ verwenden, um schnell die Summe einer Spalte zu berechnen.

2. Was ist der Unterschied zwischen einer normalen Summe und der Summenzeile in einer Tabelle?
Die Summenzeile in einer Tabelle aktualisiert sich automatisch, wenn du neue Daten hinzufügst, während eine normale Summe manuell angepasst werden muss.

3. Wie kann ich die Summenzeile anpassen?
Du kannst die Summenzeile anpassen, indem du auf die Zelle klickst und die Formel änderst, sodass sie die gewünschte Reihe oder Spalte bezieht.

Beliebteste Forumthreads (12 Monate)

Forumthread: Auto Summe am Ende der Tabelle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatische Summenzeile am Ende der Tabelle einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Auto Summe am Ende der Tabelle

Forumthread: Auto Summe am Ende der Tabelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Automatische Summenzeile am Ende der Tabelle einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread