Festmeter berechnen mit VBA
06.05.2005 21:25:13
Korl
ich versuche mich daran, über VBA eine Berechnung durchzuführen.
Über Excel ist mir auch schon alles gelungen, möchte mich aber so langsam an VBA heran tasten.
Mein Code den ich mir hierfür gebastelt habe funktioniert auch schon, allerdings nicht ganz nach meinen Vorstellungen, denn er berechnet nicht selbst, sondern fügt nur die Formel in die Zelle ein.
In meinen Beispiel geht es um die Erfassung von Baumstämmen.
In Spalte "A" werden die Längen in (m), Spalte "B" wird der Durchmesser in(cm) eingetragen. In Spalte "C" sollen die Festmeter errechnet werden.
Dies ist mein Code:
Sub Festmeter()
Dim r%
Columns("C:C").NumberFormat = "#,##0.000"
For r = 2 To Range("B65536").End(xlUp).Row
Cells(r, 3) = "=POWER(RC[-1]/200,2)*PI()*RC[-2]"
Next r
' ActiveCell.FormulaR1C1 = "=POWER(RC[-1]/200,2)*PI()*RC[-2]"
End Sub
Könnte mir bitte jemand auf die Sprüngen helfen?
Gruß Korl