Formel in varialben Spaltenbereichen einfügen

Liebe Fachleute,
eine große Tabelle mit zahlreichen Spalten.
Spalte A-E haben "eigene" Spaltenüberschriften, dann beginnt ein Bereich, der sich 12 x wiederholt (für 12 Monate des Jahres), allerdings variabel in der Spaltenanzahl:
Spalte F = 02 - Grundbetrag
Spalte G = 03 - Aufschlag1
Spalte H = 04 - Aufschlag2
Spalte I = 06 - Aufschlag3
Spalte J = 07 - Aufschlag4
Spalte K = 08 - Aufschlag9
Spalte L = Aufschlag10
Spalte M = Summe
Spalte N = 02 - Grundbetrag
Spalte O = 03 - Aufschlag1
Spalte P = 04 - Aufschlag2
Spalte Q = 07 - Aufschlag4
Spalte R = 08 - Aufschlag9
Spalte S = Aufschlag10
Spalte T = Summe
usw.
"02 - Grundbetrag" und "Aufschlag 10" tauchen immer auf, die anderen Spalten sind variabel. Beispiel: Mal taucht Spalte "06 - Aufschlag3" auf, mal nicht.
Mein Problem ist nun, dass ich in allen 12 Spalten, in denen das Wort Summe in Zeile 3 auftaucht, beginnend ab der Zeile 5 bis zur letzten (ebenfalls variablen) belegten Zeile der Tabelle, die Summe, jeweils beginnend von "02 - Grundbetrag" bis "Aufschlag 10" mit SUMME(?:?) errechnen möchte.
Mit meinen bescheidenen VBA-Kenntnissen bekomme ich das nicht hin, weil ich nicht weiß, wie ich Excel beibringen soll, dass er in "Summe" immer die Beträge in den mal 6, mal 7 Spalten umfassenden Bereich summieren soll, der von "02 - Grundbetrag" bis "Aufschlag 10" direkt links neben "Summe" steht.
Kann mir jemand von euch helfen?
Recht herzlichen Dank für eure Mühe im voraus.
Ela

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ela,
diesen Code in ein allgemeines Modul kopieren.
Bezieht sich immer auf die aktive Tabelle.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Summen()
Dim rng As Range, rngF As Range
Dim lngR As Long, lngEnd As Long
Dim intC As Integer, intEnd As Integer
Dim strFirst As String

With ActiveSheet

    lngEnd = Application.Max(5, .Cells(Rows.Count, 1).End(xlUp).Row)
    intEnd = .Cells(3, Columns.Count).End(xlToLeft).Column
    intC = 6

    Set rng = .Range(.Cells(1, 6), .Cells(3, intEnd - 1))

    Set rngF = rng.Find(What:="Summe", LookAt:=xlWhole)

    If Not rngF Is Nothing Then
        strFirst = rngF.Address

        Do

            For lngR = 5 To lngEnd
                .Cells(lngR, rngF.Column) = Application.Sum(.Range(.Cells(lngR, intC), .Cells(lngR, rngF.Column - 1)))
                .Cells(lngR, intEnd) = .Cells(lngR, intEnd) + .Cells(lngR, rngF.Column)
            Next

            intC = rngF.Column + 1

            Set rngF = rng.FindNext(rngF)

        Loop While Not rngF Is Nothing And strFirst <> rngF.Address

    End If

End With

End Sub

Gruß Sepp

Sub Summen_einfügen() Dim EndSP As Long, EndZe As Long, StartSp As Long, StartZe As Long Dim Zelle As Range Dim Sp0 As Long, Sp1 As Long, Sp2 As Long Rows(1).Insert EndSP = Rows(2).Find(what:="Endsumme").Column EndZe = Columns(1).Find(what:="Endsumme").Row - 1 StartSp = 6 StartZe = 6 Range(Cells(1, StartSp), Cells(1, EndSP)).FormulaR1C1 = "=IF(R[3]C=""Summe"",TRUE,"""")" Sp1 = StartSp For Each Zelle In Rows(1).SpecialCells(xlCellTypeFormulas, 4) Sp0 = Zelle.Column Sp2 = Zelle.Column - 1 With Range(Cells(StartZe, Sp0), Cells(EndZe, Sp0)) .FormulaR1C1 = "=SUM(RC" & Sp1 & ":RC" & Sp2 & ")" .Formula = .Value End With Sp1 = Sp0 + 1 Next Rows(1).Delete End Sub

Beliebteste Forumthreads (12 Monate)

Formel in varialben Spaltenbereichen einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in varialben Spaltenbereichen einfügen

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

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread