Zellbereich kopieren/einfügen byValue

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellbereich kopieren/einfügen byValue

Re: Zellbereich kopieren/einfügen byValue

von JtfF » Mo, 01.04.2013 17:58

Da bin ich aber ordentlich auf der Schleife gestanden! :-)

Danke!

Re: Zellbereich kopieren/einfügen byValue

von juetho » Mo, 01.04.2013 17:47

JtfF hat geschrieben:von lorbass: Ich habe mal die [​code]…[​/code]-Tags für dich gesetzt…

Wo finde ich den diese Tags?
Variante 1: Markiere den Code-Bereich und drücke die Schaltfläche Code.

Variante 2: Schreibe den Anfang des Codes [​code] und an das Ende [/code].

Außerdem gibt es oben den Link zu FAQ, worüber die weitere Hilfe erhältst. Jürgen

Re: Zellbereich kopieren/einfügen byValue

von F3K Total » Mo, 01.04.2013 17:41

Hi, wenn es sich um Zahlen handelt:

Code: Alles auswählen

    sub Kopierer
    mySheet = Thiscomponent.sheets.getbyname("Tabelle1")

    myDoc = thisComponent
    mySheet = myDoc.sheets(0)
    '--------------------------------------------------------------
    'kopieren
    myrange = mysheet.getCellRangeByPosition(3,8,3,12)
    mydataarray = myrange.getdataarray '<--------- So gibt mir das nur einen Fehler aus!
    '--------------------------------------------------------------
    'einfügen
    mynewrange = mysheet.getCellRangeByPosition(9,8,9,12)
    mynewrange.setdataarray (mydataarray)           '<--------- Da natürlich auch Fehler!
    '--------------------------------------------------------------
    End Sub
Gruß R

Re: Zellbereich kopieren/einfügen byValue

von JtfF » Mo, 01.04.2013 17:36

oDocument = ThisComponent
oSheet1 = oDocument.Sheets.getByIndex(0)
oSheet2 = oDocument.Sheets.getByIndex(1)

' Quellbereich festlegen
oQuelleRange=oSheet1.getCellRangeByPosition(0,0,3,4)
oQuellRangeAddresse = oQuelleRange.getRangeAddress

oZiel = oSheet2.getCellByPosition(2,5)
oZielCellAdresse=oZiel.getCellAddress
oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)

7.2.6 Wie kann man Zellbereiche kopieren? - Leider funktioniert dieser Code nicht.
Wenn ich mir den 7.2.5 Wie kann man Zellbereiche löschen? kopiere und laufen lasse funktioniert der Code.
Das bedeutet in der letzten Zeile steckt ein Fehler!?!?

von lorbass: Ich habe mal die [​code]…[​/code]-Tags für dich gesetzt…

Wo finde ich den diese Tags?

Liebe Grüße
Josef

Re: Zellbereich kopieren/einfügen byValue

von JtfF » Mo, 01.04.2013 16:16

Danke für den Tipp werde ich mir durchlesen!

Re: Zellbereich kopieren/einfügen byValue

von lorbass » Mo, 01.04.2013 14:22

Ich habe mal die [​code]…[​/code]-Tags für dich gesetzt…

Zur Sache: Kennst du Michael Dannenhöfers StarBasic / OpenOffice.org Basic FAQ noch nicht? Schau dir doch mal den Abschnitt 7.2.6 Wie kann man Zellbereiche kopieren? daraus an.

Gruß
lorbass

Zellbereich kopieren/einfügen byValue

von JtfF » Mo, 01.04.2013 13:30

Hallo!

Habe leider nur herausgefunden wie es sich mit einer Zelle verhält! Wie muss ich die Variable ändern um das Ergebnis der ZellRange zu speichern?

Code: Alles auswählen

sub Kopierer
mySheet = Thiscomponent.sheets.getbyname("Tabelle1")

myDoc = thisComponent
mySheet = myDoc.sheets(0)
'--------------------------------------------------------------
'kopieren
mycell = mysheet.getCellRangeByPosition(3,8,3,12)
myValue = mycell.Range.Value '<--------- So gibt mir das nur einen Fehler aus!
'--------------------------------------------------------------
'einfügen
mycell = mysheet.getCellRangeByPosition(9,8,9,12)
mycell.Value = myValue           '<--------- Da natürlich auch Fehler!
'--------------------------------------------------------------
End Sub

Ich Danke für Hilfe!
Josef

Nach oben