Funktion für Ausgabe in Zellen mit relat. Zellbez.
30.01.2005 19:57:29
Manfred
Ich möchte über einen Funktionsaufruf aus einer Zelle in einem Arbeitsblatt mit Übergabe eines Wertes aus einer weiteren Zelle Berechnungen anstellen und Einzelergebnisse in Zellen mit relativem Zellbezug zu der Zelle ausgeben, aus der ich die Funktion aufrufe. Ich möchte eine Funktion verwenden, weil sich die abhängigen Werte sofort ändern sollen, sobald ich den Bezugswert ändere. In den verkürzten Beispielen klappt der Prozeduraufruf (Sub), nicht jedoch der Funktionsaufruf, der bei der Ausführung mit der Fehlermeldung #Wert! quittiert wird.
Sub s_werte_in_spalte_relativ_ausgeben()
Dim wert As Double
wert = ActiveCell.Offset(0, -1).Value
ActiveCell.Offset(3, -1).Value = wert
End Sub
Function f_werte_in_spalte_relativ_ausgeben(wert)
ActiveCell.Offset(3, -1).Value = wert
End Function
Andere Lösungen auch sind mir auch recht, z. B. über ActiveCell, Cells, ..., Hauptsache, ich kann eine Funktion einsetzen.
Danke!