Clever-Excel-Forum

Hallo,

Ich habe in einer Spalte in jeweils 4 Zeilen untereinander Wert und die 5te Zeile ist leer, danach kommen wieder 4 Zeilen mit Werten. Nun möchte ich die
4 Wert jeweils in der 5ten freien Spalte addieren, was ja kein Problem ist. Das Problem ist ich habe schon sehr viele Werte in dieser Spalte eingetragen und wenn ich nun die Formel über den 5er Block runter ziehe funktioniert es zwar jedoch werden mein bereits eingetragenen werte ebenfalls überschrieben, gibt es hier für eine Lösung?


Lg,
Karl

Hallo,

nutze ein kleines Makro, welches dir deine Formeln in jede 5. Zeile schreibt.

Hallo,

Bin leider mit VBA nicht allzu vertraut, müsste man da nicht auch die Formel anpassen, da sich dies ja beim Runterziehen dementsprechend ändert und mit anpasst.


Lg,
Karl

Hallo Karl,

in welcher Zeile beginnt der erste Viererblock?

Gruß Uwe

Hallo,

Also beginnend mit G1 bis G4 sind meine Wert die Summenformel G1:G4 steht in G5, dann wieder von G6 bis G9 Wert und in G10 Summenformel G6:G9 usw.


Lg,
Karl

Hallo Karl,

klicke mit der rechten Maustaste auf den Reiter des entsprechenden Tabellenblattes und wähle 'Code anzeigen'.
Im aufgehenden VBA-Editor fügst Du im rechten Codefenster folgenden Code ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 Dim rngA As Range, rngB As Range

 Set rngB = Range(Target, Cells(Rows.Count, Target.Column).End(xlUp)).SpecialCells(xlCellTypeConstants, 23)

 For Each rngA In rngB.Areas

   rngA.Offset(rngA.Cells.Count).Resize(1).Formula = "=SUM(" & rngA.Address & ")"

 Next rngA

 Cancel = True

End Sub

Code eingefügt mit: Excel Code Jeanie

Schließe den VBA-Editor.

Nun mache einen Doppelklick auf die erste Zelle des ersten Blocks.

Gruß Uwe

Hallo,


Super danke Funktioniert prima!



LG,
Karl