Berechnung intern im Makro, ohne Ausgabe
18.10.2012 19:59:51
Jonas
ich möchte aus einem Zellverbund das Minimum bzw. das Maximum bestimmen und an eine Variable übergeben. Zudem wird ein fester Wert von diesen beiden Werten subtrahiert bzw. addiert. Die Variable wird weiter unten im Makro benötigt und das Ergebnis soll nicht an eine Zelle ausgegeben werden. Versucht hatte ich mich bereits an der Aufzeichnungsfunktion - bin aber leider gescheitert :-/
Könnt ihr mir hier weiterhelfen?
Besten Dank und viele Grüße
Jonas
Der Zellverbund liegt in:
Minimum: Tabellenblatt "d hk, S" Zellbereich E3:E24
Maximum: Tabellenblatt "d hk, S" Zellbereich G3:G24
Dazu habe ich mir folgendes gedacht:
Public Sub Test()
'Dimensionierung x-Achse
Dim xAchseMin As Double
Dim xAchseMax As Double
Workbooks("Auswertung_HDV.xlsm").Sheets("d hk, S").Activate
xAchseMin = Formula = "=ROUND(MIN(R[-27]C:R[-6]C),1)-0.1"
xAchseMax = Formula = "=ROUND(MAX(R[-27]C:R[-6]C),1)+0.1"
msgbox xAchseMin
msgbox xachseMax
End Sub