Summenformeln autom.generieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Daniel
danke, dass Du Dich meiner annimmst. Hier die Erklärung:
die Spalte A enthält eine sog. Hierarchiestufe, d.h. alle Zeilen mit z.B. der 2 (Spalte A) und einem "S" (Spalte B) enhält eine Summenformel, die alle Zeilen mit einer 3 in Spalte A enthält. Das Ganze geht solange nach unten, bis in Spalte A wieder eine 2 und in Spalte B ein "S" vorkommt. Da gehts dann wieder so weiter, bis zur nächsten 2 S.
Das gleiche Spielchen erfolgt auch mit den restlichen Hierarchiestufen, d.h. in den Zeilen mit 3 (Spalte A) und "S" (Spalte B) soll die Summierung der 4 (Spalte A) ersichtlich sein. usw.....
Ich weiß, hört sich fürchterlich an, aber setz doch mal den Detektiv auf eine Summe, dann wirds sicherlich klarer werden.
Liebe Grüße
Petra

Hallo Petra,
probier mal


Option Explicit
Sub SumFormeln()
Dim xx(-1 To 9, 0 To 30) As Long
Dim zz As Long, tt As String, ii As Integer
For zz = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1
If xx(Cells(zz, 1), 0) > 0 Then
tt = "=C" & xx(Cells(zz, 1), xx(Cells(zz, 1), 0))
For ii = xx(Cells(zz, 1), 0) - 1 To 1 Step -1
tt = tt & "+C" & xx(Cells(zz, 1), ii)
Next ii
Cells(zz, 5).Formula = tt
xx(Cells(zz, 1), 0) = 0
End If
xx(Cells(zz, 1) - 1, 0) = xx(Cells(zz, 1) - 1, 0) + 1
xx(Cells(zz, 1) - 1, xx(Cells(zz, 1) - 1, 0)) = zz
Next zz
End Sub

(Zumindest) einen Mangel hat die Prozedur:
Die Zellen werden in den Formeln einzeln aufgeführt,
also z. B. C15+C16+C17. SUMME(C15:C17) wäre besser.
Aber das könnte auch noch werden...
Im Bereich A793 bis A798 scheint sich ein falscher Fehler eingeschlichen zu haben:
In C793 steht "=SUMME(C794:C798)", in A796 fehlt die Hierarchiestufe.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub SumFormeln2() Dim xx(-1 To 9, 0 To 30) As Long Dim zz As Long, ss As Integer, anz As Integer, tt As String, ii As Integer For zz = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1 ss = Cells(zz, 1) If xx(ss, 0) > 0 Then anz = xx(ss, 0) If anz > 2 Then For ii = 2 To anz If xx(ss, ii) xx(ss, ii - 1) - 1 Then Exit For Next ii End If If anz

Sub SumFormeln3() Dim arrM(-1 To 9, 0 To 30) As Long ' evtl. mahr als 30 Stellen nötig Dim zz As Long, ss As Long, anz As Long, tt As String, ii As Long On Error Resume Next ' lösche ALLE Formeln in Spalte C Columns(3).SpecialCells(xlCellTypeFormulas, 23).ClearContents On Error GoTo 0 For zz = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1 ss = Cells(zz, 1) If arrM(ss, 0) > 0 Then ' Gibt es "vorgemerkte" für Stufe ss? anz = arrM(ss, 0) If anz > 2 Then For ii = 2 To anz ' fortlaufende Zeilen? If arrM(ss, ii) + 1 arrM(ss, ii - 1) Then Exit For Next ii End If If anz

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summenformeln autom.generieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread