Tweet
Hallo
Ich bin ziemlicher Anfänger und bin vor folgendes Problem gestellt. Ich erstelle eine Website und sollte darauf eine Excel-Datei mit einer Applikation (Makros) zum Laufen bringen.
Ich vermute, dass ich hier nicht um PHP herumkomme, oder? Aber wie vorgehen, ich bräuchte einfach eine Idee für den Anfang!
Die Excel-Datei berechnet das Gewicht von Rohren, hier ein Ausschnitt:
Berechnung des Metergewichtes / Gewichtes von Rohren
Material
Form rechteckiges
Aussendurchmesser 9.50 mm Stahlrohr
Aussenkantenlänge 0.00 mm Metergewicht
Höhe (grösseres Mass) 40.00 mm 1.7584 kg/m
Breite (kleineres Mass) 20.00 mm Fixlängengewicht
Wanddicke 2.00 mm 0.1758 kg
Länge 100.00 mm
Die einzelnen Berechnungen sind mit Makros wie folgt aufgebaut, z.B.:
Sub Schaltfläche14_BeiKlick()
'
' Schaltfläche14_BeiKlick Makro
' Makro am 01.09.2006 von CH08824 aufgezeichnet
ActiveWindow.SmallScroll Down:=18
Range("H36").Select
ActiveCell.FormulaR1C1 = "2.7"
Range("H10").Select
ActiveCell.FormulaR1C1 = "Aluminiumrohr"
Range("D10").Select
End Sub
Besten Dank!
Ich bin ziemlicher Anfänger und bin vor folgendes Problem gestellt. Ich erstelle eine Website und sollte darauf eine Excel-Datei mit einer Applikation (Makros) zum Laufen bringen.
Ich vermute, dass ich hier nicht um PHP herumkomme, oder? Aber wie vorgehen, ich bräuchte einfach eine Idee für den Anfang!
Die Excel-Datei berechnet das Gewicht von Rohren, hier ein Ausschnitt:
Berechnung des Metergewichtes / Gewichtes von Rohren
Material
Form rechteckiges
Aussendurchmesser 9.50 mm Stahlrohr
Aussenkantenlänge 0.00 mm Metergewicht
Höhe (grösseres Mass) 40.00 mm 1.7584 kg/m
Breite (kleineres Mass) 20.00 mm Fixlängengewicht
Wanddicke 2.00 mm 0.1758 kg
Länge 100.00 mm
Die einzelnen Berechnungen sind mit Makros wie folgt aufgebaut, z.B.:
Sub Schaltfläche14_BeiKlick()
'
' Schaltfläche14_BeiKlick Makro
' Makro am 01.09.2006 von CH08824 aufgezeichnet
ActiveWindow.SmallScroll Down:=18
Range("H36").Select
ActiveCell.FormulaR1C1 = "2.7"
Range("H10").Select
ActiveCell.FormulaR1C1 = "Aluminiumrohr"
Range("D10").Select
End Sub
Besten Dank!