Formel in VBA umsetzen - Aber wie ?

Hallo liebes Forum!
Vor einiger Zeit hat mir Boris mit einer Formel geholfen, die allerdings - da komplex - auch ekelig lang und unübersichtlich ist.
Nach längerem Probieren habe ich es geschafft, die Formel so anzupassen, dass sie nach links oder unten kopierbar ist, und die Zellbezüge sich anpassen.
Nun habe ich das Problem, dass der Datenbereich auf die diese Formel zugreift, sich ab und zu ändert, d.h. es werden per VBA definitiv Zeilen gelöscht bzw. neue hinzugefügt. Wenn nun Zeilen gelöscht werden, stimmt der in der Formel definierte Bereich nicht mehr, da sich beim Löschen der Bezug in der Formel ändert.
Meine Idee ist es nun, die Formel - nach der Änderung/Aktualisierung des Datenbereiches per VBA in die betreffenden Zellen zu setzen.
Daher meine Frage: Gibt es eine (einfache) Methode eine Formel in VBA umzusetzen?
Und hier ist das "Monster":
=WENN(TEILERGEBNIS(4;$AG$13:$AG$2500)=0;SUMMENPRODUKT(($A$13:$A$2500=$A4)*($AG$13:$AG$2500=0);(I$13:I$2500));WENN(UND(TEILERGEBNIS(5;$AG$13:$AG$2500)=0;TEILERGEBNIS(4;$AG$13:$AG$2500)=1);SUMMENPRODUKT(($A$13:$A$2500=$A4)*(I$13:I$2500));SUMMENPRODUKT(($A$13:$A$2500=$A4)*($AG$13:$AG$2500=1);(I$13:I$2500))))
Gruss und danke schon mal ..
Lothar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lothar,
habe vor einiger Zeit mal ein ähnliches Problem bei einer Darlehensberechnung gehabt. Meine Lösung sah so aus:
#########################


Sub BerechneDarlehen()
Dim Knoten_Zelle
' Vorhandene Zelleninhalte löschen
Range("A3").Select
Knoten_Zelle = ActiveCell.Address
ActiveCell.End(xlDown).Select
ActiveCell.End(xlToRight).Select
Range(Knoten_Zelle, ActiveCell).ClearContents
' Formeln zum Darlehensverlauf einfügen
Range("A3").Select
ActiveCell.FormulaR1C1 = "=EDATUM(Z(-1)S1;12)"
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=ZW(Zinsen/RatenProJahr;RUNDEN(TAGE360(Datum;ZS(-1))/30;0);Ratenbetrag;-Darlehen;Zinstermin)"
' Darlehensverlauf mit Funktion UntenAusfüllen einfügen
Selection.Resize(2, 2).Select                   ' Auswahl auf 2 x 2 Zellen erweitern
Do Until ActiveCell.Value <= 0
Selection.Offset(0, -1).FillDown            ' Auswahl 1 Spalte nach links versetzen
Selection.Offset(1, 0).Select               ' Auswahl 1 Zeile nach unten versetzen und neu auswählen
Loop
Selection.Resize(1, 1).Select                   ' Auswahl auf 1 Zelle verkleinern
Range("A1").Select
End Sub

####################################
Vielleicht hlft Dir das weiter.
Gruß, Rudi.

Beliebteste Forumthreads (12 Monate)

Formel in VBA umsetzen - Aber wie ?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in VBA umsetzen - Aber wie ?

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

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread