Dynamische Summenformel :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Dynamische Summenformel

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 7

Verfasst am: 31.07.2008, 13:57

Hallo,

ich möchte ein Makro,das in der Spalte 12 in die Zwischensummezellen(blau) Summenformeln entsprechend der Länge zwischen Bausteinen einfügt.
Sprich das Makro fügt in die Zelle L2 die Formel =SUMME(L3:L4) bzw. in die Zelle L8 die Formel =SUMME(L9:L12) usw.
Um es besser zu verdeutlichen habe ich ein Screenshot angehängt.

Bedanke mich im Voraus.

Test.jpg

Beschreibung:

Dateigröße:

140.14 KB

Angeschaut:

139 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.08.2008, 10:24

Hallo!

Teste mal sowas:

Code:

Sub test()
Dim Ende&, i&, x&
Ende = Range("L65536").End(xlUp).Row + 1
x = 3
For i = x To Ende
If Cells(i, 12) = "" Then
Cells(i, 12) = WorksheetFunction.Sum(Range(Cells(x, 12), Cells(i - 1, 12)))
x = i + 1
End If
Next i
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 7

Verfasst am: 01.08.2008, 13:25

Der Code funktioniert nur ist es nicht die erwünschte Lösung.

Ich habe bereits eine Lösung (allerding ist ein Fehler, der zum Laufzeitfehler führt drin, den ich nicht beheben kann) gehabt, nur diese gibt auch nur das Ergebnis als Wert und nicht die erwünschte Formel in der Summenzelle.Die eigentliche Stückliste hat 7000 Zeilen. Es wäre schön, wenn eine Formel in der Zelle drinnen ist, so dass jede Änderung(preisliche) in der Stückliste auf die Zwischensumme wirkt.

Das hier ist meine Lösung, nur mit dem Problem des Laufzeitfehlers.

Sub Summenzeile()

Dim Startzähler As Integer
Dim Summenzelle As Integer
Dim Summmenzeilen As Integer

With Tabelle1

Startzähler = 8
Summenzelle = 8
Summenzeilen = 9

Do Until .Cells(Startzähler, 2).Value = ""

Startzähler = Startzähler + 1

Do Until .Cells(Startzähler, 2).Value = "Zwischensumme Baustein"

.Cells(Summenzelle, 12).Value = .Cells(Summenzelle, 12).Value + .Cells(Summenzeilen, 12).Value
.Cells(Summenzelle, 19).Value = .Cells(Summenzelle, 19).Value + .Cells(Summenzeilen, 19).Value
.Cells(Summenzelle, 38).Value = .Cells(Summenzelle, 38).Value + .Cells(Summenzeilen, 38).Value
.Cells(Summenzelle, 39).Value = .Cells(Summenzelle, 39).Value + .Cells(Summenzeilen, 39).Value
.Cells(Summenzelle, 40).Value = .Cells(Summenzelle, 40).Value + .Cells(Summenzeilen, 40).Value
.Cells(Summenzelle, 41).Value = .Cells(Summenzelle, 41).Value + .Cells(Summenzeilen, 41).Value
.Cells(Summenzelle, 42).Value = .Cells(Summenzelle, 42).Value + .Cells(Summenzeilen, 42).Value
.Cells(Summenzelle, 43).Value = .Cells(Summenzelle, 43).Value + .Cells(Summenzeilen, 43).Value
.Cells(Summenzelle, 44).Value = .Cells(Summenzelle, 44).Value + .Cells(Summenzeilen, 44).Value
.Cells(Summenzelle, 45).Value = .Cells(Summenzelle, 45).Value + .Cells(Summenzeilen, 45).Value
.Cells(Summenzelle, 46).Value = .Cells(Summenzelle, 46).Value + .Cells(Summenzeilen, 46).Value

Summenzeilen = Summenzeilen + 1
Startzähler = Startzähler + 1

Loop

Summenzelle = Startzähler
Summenzeilen = Summenzeilen + 1
Loop

End With

End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.08.2008, 13:38

Hallo!

Dieser Code schreibt dir die Formeln:

Code:

Sub test()
Dim Ende&, i&, x&
Ende = Range("L65536").End(xlUp).Row + 1
x = 3
For i = x To Ende
If Cells(i, 12) = "" Then
Cells(i, 12).Formula = "=Sum(" & Cells(x, 12).Address & ":" & Cells(i - 1, 12).Address & ")"
x = i + 1
End If
Next i
End Sub

M.P._61
Newbie
Newbie

Anmeldedatum: 03.04.2008
Beiträge: 7

Verfasst am: 01.08.2008, 14:19

Zunächst bedanke ich mich vielmals für die schnelle Antwort.

Nur eine kleine Erweiterung bräuchte ich noch.
In Zelle L2 sollte die Summe aus Zellen L3 und L4 stehen.In L5 die Summe aus L6 und L7.Es wird also nach unten aufsummiert.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 01.08.2008, 14:28

Das hatte ich komplett überlesen...

Code:

Sub test()
Dim Ende&, i&, j&
Ende = Range("L65536").End(xlUp).Row
For i = 2 To Ende
If Cells(i, 12) = "" Then
For j = i + 1 To Ende
If Cells(j, 12) = "" Then Exit For
Next j
Cells(i, 12).Formula = "=Sum(" & Cells(i + 1, 12).Address & ":" & Cells(j - 1, 12).Address & ")"
End If
Next i
End Sub

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	dynamische Ausgabe der Spaltenanzahl ...	f.stoessel	Microsoft Excel Hilfe	4	06.08.2008, 08:16
	dynamische Funktion (SVERWEIS)	TheRedNoseRudolf	Microsoft Excel Hilfe	2	11.04.2008, 18:07
	Dynamische Gültigkeit mit mehr als 7 ...	GisiSauso	Microsoft Excel Hilfe	4	13.03.2008, 21:22
	dynamische Werte	sunflyer	Microsoft Excel Hilfe	3	08.03.2008, 12:52
	Automatische Anpassung der Summenformel	Ag.man	Microsoft Excel Hilfe	15	19.02.2008, 00:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de