UDF verschiebt Zellbezug
24.07.2020 15:00:07
Heike
ich hab mir vor langer Zeit von Euch Profis eine wunderbare UDF schreiben lassen, die ich jetzt _
wieder rausgeholt habe. Sie tut auch, was sie soll, was prima ist.
Function SummeAlleBlaetterRechts(Bezug As Range)
Application.Volatile
Dim i As Long
For i = Application.ThisCell.Worksheet.Index + 1 To Application.ThisCell.Worksheet.Parent. _
Sheets.Count
SummeAlleBlaetterRechts = SummeAlleBlaetterRechts + Worksheets(i).Range(Bezug.Address)
Next i
End Function
Mit dieser Funktion erstelle ich eine Zusammenfassung, die dann beispielsweise enhält: =SummeAlleBlaetterRechts(D19).
Wenn ich auf dem Blatt Zusammenfassung Zeilen lösche oder hinzufüge, dann verschiebt es mir diesen Zellbezug. D.h. er verschiebt den Zellbezug um die Anzahl der gelöschten oder hinzugefügten Zeilen. Lässt sich das abstellen?
Den Zellbezug mittels Dollarzeichen feststellen bringt nicht den gewünschten Effekt.
Herzlichen Dank!
LG
Heike