Kenny1702
2005-11-03, 15:21:32
Ich möchte ein einfaches Excel-Makro in ein Basic-Makro umschreiben. Im Endeffekt ist alles, was ich brauche, ein Ersatz für 'Cells(x,y).Value'.
Ich habe folgendes versucht:
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
weiter muß ich nicht posten, denn beim Ausführen bekomme ich beim letzten Befehl einen Basic-Laufzeitfehler mit der Meldung "Eigenschaft oder Methode nicht gefunden". Ich habe den Code einfach aus dem StarOffice 6.0 Basic-Programmierhandbuch kopiert, nutzen tue ich OO 1.1.4.
Weiter sollte es nach folgendem Schema gehen
For i = 3 To 626
Sheet.getCellByPosition(i, 15).Value=Sheet.getCellByPosition(i, 14).Value*0.79
Next i
Wo ist mein Denkfehler?
Ich freue mich schon auf Lösungsvorschläge.
Ich habe folgendes versucht:
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
weiter muß ich nicht posten, denn beim Ausführen bekomme ich beim letzten Befehl einen Basic-Laufzeitfehler mit der Meldung "Eigenschaft oder Methode nicht gefunden". Ich habe den Code einfach aus dem StarOffice 6.0 Basic-Programmierhandbuch kopiert, nutzen tue ich OO 1.1.4.
Weiter sollte es nach folgendem Schema gehen
For i = 3 To 626
Sheet.getCellByPosition(i, 15).Value=Sheet.getCellByPosition(i, 14).Value*0.79
Next i
Wo ist mein Denkfehler?
Ich freue mich schon auf Lösungsvorschläge.