OpenOffice.info

Dim oDoc, oSheet, oCell1, oCell2

[quote]das war eine ausnahme; ansonsten deklariere ich immer brav mit as Object. [/quote]

das war nicht der Grund meines Hinweises, ein:

[code]Dim oDoc, oSheet, oCell1, oCell2[/code]

hätte nicht meine Aufmerksamkeit erregt. Nur die Tatsache das Du oCell1 und oCell2 verschieden deklariert hast, war das was ist nicht verstand.


Gruß
Stephan

hallo stephan,
[quote]
kann mir nicht denken das du oDoc, oSheet und oCell1 als Typ Variant deklarieren wolltest, was Du hiermit aber tust: [/quote]

das war eine ausnahme; ansonsten deklariere ich immer brav mit as Object.

grüße

klaus

oCell1.string = oCell2.string

With oSheet
	oCell1=.getCellByPosition(0,0) 
	oCell2=.getCellByPosition(2,2) 
End With

Dim oDoc, oSheet, oCell1, oCell2 as Object

Dim oDoc as Object, oSheet as Object, oCell1 as Object, oCell2 as Object

[quote]welche bitte schön? [/quote]

Du kannst den Textinhalt der Zelle der entsprechenden Eigenschaft direkt zuweisen und brauchst Dich nicht der Methode .setString bedienen, also:

[code]oCell1.string = oCell2.string[/code]

[i](was, unter Aufgabe der 2 unnötigen Leerzeichen, 4 Anschläge kürzer als Deine Variante ist) [/i]

Du kannst mit With arbeiten:

[code]With oSheet
oCell1=.getCellByPosition(0,0)
oCell2=.getCellByPosition(2,2)
End With[/code]

[i](was aber, auch unter Weglassung unnötiger Leerzeichen, 7 Anschläge mehr als Deine Variante beansprucht)[/i]

[quote]dabei stell ich mir die frage, ob der nicht kürzer sein kann?[/quote]

da geht es mir wie Thomas, ich frage mich warum.
Es gab vor 20 Jahren mal gewisse Gründe, weil die Hardware schwach war, ich erinnere mich noch lebhaft damals immer eine kommentierte und eine unkommentierte Code-Variante geschrieben zu haben, weil die kommentierte zu lang war um in den Hauptspeicher zu 'passen', damals etwa 16 kB.
Heute ist das doch völlig überholt, es geht um leicht lesbaren und gut wartbaren Code.
Dein Code wäre natürlich entscheidend kürzer wenn Du ein-Buchstaben-Variablennamen verwenden würdest, aber das ist schon von der Tendenz der falsche Weg. Eigentlich sollte man sprechende Variablennamen verwenden, also beispielsweise für oCell1:
objZelleMitAusgangswert

Wichtiger wäre handwerklich sauber zu sein, denn ich kann mir nicht denken das du oDoc, oSheet und oCell1 als Typ Variant deklarieren wolltest, was Du hiermit aber tust:

[code]Dim oDoc, oSheet, oCell1, oCell2 as Object[/code]

richtig muß es heißen:

[code]Dim oDoc as Object, oSheet as Object, oCell1 as Object, oCell2 as Object[/code]




Gruß
Stephan

hallo thomas,

[quote]Es gibt noch andere Methoden[/quote]

welche bitte schön?

grüße

klaus

Hey Klaus,

na ja, für einen Zellwert zu übertragen....
Du kanst das natürlich auch in eine Zeile schreiben - nur, sehr viel kürzer wird es auch nicht, eher unübersichtlicher.

Es gibt noch andere Methoden, aber für eine Zelle wird der Code dadurch kaum kürzer :wink:

Gruss
Thomas

Sub test
	Dim oDoc, oSheet, oCell1, oCell2 as Object
	Dim x as String
	oDoc=ThisComponent
	oSheet=oDoc.CurrentController.getActiveSheet
	oCell1=oSheet.getCellByPosition(0,0)
	oCell2=oSheet.getCellByPosition(2,2)
	oCell2.setString("Ewig singen die Wälder")
	'oCell1.setString("z")
	oCell1.setstring(oCell2.string)
end sub

hallo zusammen,

mit folgendem code kann ich den zellwert von zelle c3 in a1 übertragen. dabei stell ich mir die frage, ob der nicht kürzer sein kann?

[code]Sub test
Dim oDoc, oSheet, oCell1, oCell2 as Object
Dim x as String
oDoc=ThisComponent
oSheet=oDoc.CurrentController.getActiveSheet
oCell1=oSheet.getCellByPosition(0,0)
oCell2=oSheet.getCellByPosition(2,2)
oCell2.setString("Ewig singen die Wälder")
'oCell1.setString("z")
oCell1.setstring(oCell2.string)
end sub[/code]

freue mich auf eine antwort

danke

klaus