Summenbezug anpassen

Hallo zusammen,
ich hatte mein Anliegen schonmal geschildert, allerdings etwas umfangreich (war wohl abschreckend), daher hier nochmal kürzer:
Ich füge in meinem Dokument per Knopfdruck einzelne Zeilenblöcke untereinander an. Dabei soll alle X Blöcke eine Überschrift dazwischenkommen. Somit habe ich keine Blöcke von einheitlicher Größe, sondern immer unterschiedliche. Das wirft das Problem auf, dass die Summe in Spalte "J" (siehe angehängte Datei), die sich aus den Zellen der Spalte "I" des Blocks berechnet, bei unterschiedlich großen Zellblöcken immer einen falschen Bezugsbereich hat.
Ich suche daher eine Möglichkeit, wie ich den Bereich der Summe in "J" verändern kann, müsste dafür aber zunächst herausfinden, welcher Bereich überhaupt abzudecken ist.
Ich habe das Problem mal in einer Datei dargestellt (Beachte die Tabellenblätter):
https://www.herber.de/bbs/user/144702.xlsm
Ich hoffe, jemand kann mir helfen oder zumindest einen Tipp geben, wie ich das Problem angehen könnte. Schonmal vielen Dank!
Simon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PLFinden() Dim strString As String, rngCell As Range strString = "P/L" Set rngCell = Columns(9).Find(strString, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:= _ xlByRows, SearchDirection:=xlPrevious, MatchCase:=True) If Not rngCell Is Nothing Then MsgBox rngCell.Row Else MsgBox "war nicht dabei" End If Dim last2 As Long last2 = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row With ActiveSheet .Range(.Cells(last2, "J"), Cells(last2, "J")).Value = WorksheetFunction.Sum(ActiveSheet.Range(. _ Cells(rngCell.Row, "I"), Cells(last2, "I"))) .Range(.Cells(last2 - 1, 10), .Cells(last2 - 1, 10)).Clear End With End Sub

Hallo,
- wo sind die Blöcke, die du kopieren willst?
Ich kopiere immer den oberen Block, der aus zwei Zeilen besteht.
- wovon hängt es ab, wie viele Blöcke du kopieren willst?
Das hängt davon ab, wie oft ich manuell (per Knopfdruck) einen solchen 2-Zeilen-Block hinzufüge.
In meiner Beispieldatei funktioniert das kopieren auch einwandfrei. Mir geht es jedoch darum, eine Summe auszurechnen.
Mit dem folgenden Code habe ich das auch hinbekommen, allerdings nicht genau so, wie ich das wollte.

Sub PLFinden()
Dim strString As String, rngCell As Range
strString = "P/L"
Set rngCell = Columns(9).Find(strString, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:= _
xlByRows, SearchDirection:=xlPrevious, MatchCase:=True)
If Not rngCell Is Nothing Then
MsgBox rngCell.Row
Else
MsgBox "war nicht dabei"
End If
Dim last2 As Long
last2 = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
With ActiveSheet
.Range(.Cells(last2, "J"), Cells(last2, "J")).Value = WorksheetFunction.Sum(ActiveSheet.Range(. _
Cells(rngCell.Row, "I"), Cells(last2, "I")))
.Range(.Cells(last2 - 1, 10), .Cells(last2 - 1, 10)).Clear
End With
End Sub

Das Ergebnis ist zwar auch eine Summe über den richtigen Bereich und in der richtigen Zelle. Allerdings stelle ich mir eine klassische Excelsumme vor, die sich auch updatet, wenn sich ein Wert verändert.
Also in meinem Beispiel irgendwie sowas
.Range(.Cells(last2, "J"), Cells(last2, "J")).Value = "=Sum(.Range(.Cells(rngCell.Row, "I"), Cells(last2, "I")))"
Ist das möglich?
Gruß Simon

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread