Code erweitern
28.01.2025 10:38:00
JR2025
ich habe den folgenden Code gefunden allesdings scheitert es an meinen Kenntnissen bei der Anpassung.
Der Code fügt bei jedem geänderten Eintrag in Spalte3 eine neue Zeile ein
Die Ausführung erfolgt zum Monatsende durch Betätigung eines Button
Bis dahin funktioniert das super.
Jetzt wollte ich aber die eingefügten Formeln zusammenrechnen und die neu eingefügten Zeilen farbig markieren.
Meine Idee war mit dem einfügen der neuen Zeile zusätzlich in Spalte 23 eine 1 einzufügen, die ich für eine Bed. Formatieung und zum erstellen einer Formel für den Monatsabschluß verwenden kann.
Sub Leerzeile()
Dim ErsteZeile As Long, LetzteZeile As Long, Spalte As Long, i As Long
Dim rng As Range
ErsteZeile = 5
LetzteZeile = 2000
Spalte = 3
For i = LetzteZeile To ErsteZeile Step -1
If Cells(i, Spalte) > Cells(i - 1, Spalte) Then Rows(i).Insert (xlShiftDown)
Next i
For Each rng In Columns(14).SpecialCells(xlCellTypeConstants).Areas
rng(rng.Rows.Count + 1).Formula = "=sum(" & rng.Address & ")"
Next
For Each rng In Columns(23).SpecialCells(xlCellTypeConstants).Areas
rng(rng.Rows.Count + 1).Value = "1" ' war eine idee von mir
Next
End Sub
So wie ich mir gedacht habe geht es aber nicht.
Hat jemand einen Tipp wie sich das umsetzen lässt.
Danke
bis später
Jörg
Anzeige