VBA Problem/Summe erst ab Zelle X

Hallo Zusammen,
im Prinzip geht es darum, dass ich ab Zeile 13 nach jeder 4 Zeile eine Zeile einfügen lassen möchte und dann für Spalte C-F die Summe aus den 5 Spalten vorher berechnen möchte. Das kriegt mein Code auch hin.
Allerdings möchte ich, dass in Spalte A der Buchstabe aus der vorherigen Zeile übernommen wird und in Spalte B Sum erscheint, dh. da soll keine Summierung erfolgen (siehe Excel farbige Markierung). Egal was ich probiert habe, wenn ich in der Summen-Formel in VBA nicht bei A1 gestartet bin, gab es immer einen Error oder einen ungewollten Output. Habt Ihr einen Vorschlag wie man dies programmieren könnte.
Da ich nur sehr rudimentäre VBA Kenntnisse habe, würde ich mich über jede Hilfe freuen.
Anbei die Excel:
https://www.herber.de/bbs/user/142865.xlsm
Vielen Dank und beste Grüße
Simone

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SUM() Dim x As Integer With ActiveSheet For x = 18 To 50 .Cells(x, 1).Select Selection.EntireRow.Insert ActiveCell.Range("C1:F1").Select ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C[])" ActiveCell.Select Selection.AutoFill Destination:=ActiveCell.Range("A1:D1"), Type:= _ xlFillDefault .Cells(x, 1) = .Cells(x - 1, 1) .Cells(x, 2) = "Sum" x = x + 5 Next x End With End Sub

Hallo Simone,
Du brauchst keine VBA und auch keine Formel, sondern ein Pivottabelle.
(nehme wir an, die "farbige" Summenzeile sind nicht vorhanden)
_ lege in A12 und B12 je ein Überschrift "Buchstabe" und "Cluster"
_ andere die zweizeilige Überschriften in C12:F12 in
MioEUR-12.Dec MioEUR-Q4 MioUSD-12.Dec. MioUSD-Q4
_ Markiere den Bereich A12:F42
_ füge eine Pivottabelle ein: Einfügen, Pivottabelle (Auswahl "vorhandenes Arbeitsblatt", Ziel "I15")
_ im Pivottable-Felder, drag "Buchstabe" & drop ins "Zeilen"
_ Die 4 MioXXX ins "Werte"
_ in Zeilenbeschreibung (ca. I17), Element "0" rausfiltern.
Fertig.
Und jetzt schreibst Du nie wieder eine Zwischensumme in der Mitte einer Datenliste: klare Trennung der Datenhaltung, -Berechnung, -präsentation ("Model-View-Controler" heisst es. Siehe wiki).
Noch besser wäre ein Starschema: Datum in einer Spalte (die Anzahl an Zeilen verdoppelt sich), eine Wert-Spalte pro Währung.
Man könnte auch die Währung "entpivotisieren", also in einer Spalte (Anz.Zeile nochmal x2) aber da es immer eine USD-Wert, wo es ein EUR-Wert gibt, lassen wir sie nebeneinander. Dann kann man den Kurs berechnen.
Viel Erfolg
Yal

Public Sub Summen_einfügen() Dim i With ActiveSheet For i = 38 To 14 Step -1 If .Cells(i - 1, 1) .Cells(i, 1) Then .Cells(i, 1).EntireRow.Insert .Cells(i, 1) = .Cells(i - 1, 1) .Cells(i, 2) = "Sum" .Cells(i, 3).Resize(1, 4).FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)" End If Next End With End Sub

Option Explicit Sub SUM_HAG() Dim iRow%, iLastRow% iLastRow = Cells(1048576, 1).End(xlUp).Row + 6 With ActiveSheet For iRow = 18 To iLastRow .Cells(iRow, 1).EntireRow.Insert Range("C" & iRow & ":F" & iRow).FormulaLocal = "=SUMME(C" & iRow - 5 & ":C" & iRow - 1 _ & ")" .Cells(iRow, 1) = .Cells(iRow - 1, 1) .Cells(iRow, 2) = "Sum" iRow = iRow + 5 Next iRow End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA Problem/Summe erst ab Zelle X

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Problem/Summe erst ab Zelle X

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread