Hallo,
zunächst möchte ich euch allen ein frohes neues Jahr wünschen.
Nun zu meinem Problem.
Ich muss fürs Studium ein Makro programmieren.
Mit dem Makro soll eine beliebig lange Tabelle mit der Formel S=S1* (2*n+1)
berechnet werden.
Die Variable n bezieht sich auf einen Wert in einer anderen Tabelle.
Die Spalte mit den Werten für S1 soll beliebig lang sein.
So sieht meim Makro zurzeit aus:
Sub Sberechnen()
n = Cells(Tabelle1!C6) ' n stammt aus Tabelle 1'
x = Cells(ActiveCell.Row, ActiveCell.Column - 2) 'x entspricht S1'
Do Until Cells(ActiveCell.Row, ActiveCell.Column - 2) = "" ' für beliebig lange Spalte x'
S = x * (2 * n + 1)
Loop
End Sub
Ich hoffe ihr könnt mir helfen, denn ich finde den oder die Fehler nicht.
Mfg David
|