|
Vielen Dank für eure Antworten. Da habe ich mich wohl wirklich schlecht ausgedrückt! Ich will es nochmal versuchen zu erklären. Die Berechnung würde ich gerne in VBA lösen. Ich möchte gerne die Berechnung A1 für die Komponente 1 auf die darunterliegenden Zellen erweitern (blauer Pfeil). Das Ergebnis für die Berechnung A1 findet man in der Zelle (49,2).
Zur Erklärung, die Zeile 19 und 49 ist für die Komponente 1. Dabei findet man in der Zeile 19 Eingabewerte (rote Markierung) die später ausgefüllt werden können. In der Zeile 49 werden dann entsprechende Berechnungen ausgegeben (blaue Markierung). In der Zeile 19 gibt es allerdings eine Zwischenrechnung n (blaue Markierung).
Bei der Zeile 20 findet man also wieder Eingabewerte und in Zeile 50 wieder die notwendigen Ergebnisse für die Komponente 2.
Die Frage ist, ob es eine Möglichkeit gibt, die Berechnung A1 mit den entsprechenden Eingabewerten der jeweiligen Komponente zu erweitern? Ich hoffe damit wird mein Problem nochmals transparenter.
Option Explicit
Sub Berechnung()
'Variablendeklaration "Eingabe Tabelle2"
Dim intzins As Integer
Dim intk As Integer
'Variablendeklaration "Eingabe Tabelle3"
Dim inttn As Integer
Dim dbla0 As Double
Dim dbln As Double
'Variablendeklaration "Ausgabe Tabelle3"
Dim dbla1 As Double
'Variablendeklaration im "Programm"
Dim q As Double
Dim rk As Double
'Zuweisung der Variablen "Tabelle2"
intzins = Tabelle2.Cells(4, 6)
intk = Tabelle2.Cells(5, 6)
'Zuweisung der Variablen "Tabelle3"
inttn = Tabelle3.Cells(19, 2)
dbla0 = Tabelle3.Cells(19, 10)
'Variablenwerte im "Programm"
q = 1 + (intzins / 100)
rk = 1 + (intk / 100)
'Rechenvorgang "A1"
If (dbln = 0) Then
Tabelle3.Cells(49, 2).Value = 0
Else
dbla1 = (rk ^ (1 * inttn)) / (q ^ (1 * inttn))
dbla1 = dbla1 * dbla0
'Ergebnis auf 2 Nachkommastellen runden
Tabelle3.Cells(49, 2) = Round(dbla1, 2)
'Ausgabe des Ergebnis
dbla1 = Tabelle3.Cells(49, 2)
End If
End Sub
Über eine Antwort würde ich mich freuen.
Beste Grüße Flo
|