OpenOffice.info

Hallo Achim
Eigentlich kann man diese Namen beliebig definieren, solange man keine der innerhalb von Basic reservierten Bezeichnungen nimmt.
Es sollte aber ein "sprechender" Name sein.
Die verschiedenen vorangestellten Buchstaben erleichtern später bei komplexem Code die Übersicht darüber was [color=#FF0000]O[/color]bjekt, was [color=#FF0000]A[/color]rray, [color=#FF0000]s[/color]tring(Text); usw. ist.

Gruß Karo

coooool - vielen dank karolus.

warum heißt es: [i]a[/i] daten oder auch [i]o[/i] zielblatt?
was bedeutet a + o? kann man das kurz erklären?

sub Datenbereich_kopieren_Zeileeinfuegen
oDocument = ThisComponent
oQuellblatt = oDocument.Sheets().getByName("kunden")
oZielblatt = oDocument.Sheets().getByName("Eingabe")
   
	orows = ozielblatt.getrows()
	orows.insertbyindex(1,1)'Zeile2 wird eingefügt
	
adaten = oQuellblatt.getCellRangeByName("A3:K3").getDataarray()
'Achtung Quell- und Zielbereich müssen identisch dimensioniert sein
oZielblatt.getCellrangeByName("A2:K2").setdataarray(adaten) 'einfügen in A2:K2
end sub

Hallo
[code]sub Datenbereich_kopieren_Zeileeinfuegen
oDocument = ThisComponent
oQuellblatt = oDocument.Sheets().getByName("kunden")
oZielblatt = oDocument.Sheets().getByName("Eingabe")

orows = ozielblatt.getrows()
orows.insertbyindex(1,1)'Zeile2 wird eingefügt

adaten = oQuellblatt.getCellRangeByName("A3:K3").getDataarray()
'Achtung Quell- und Zielbereich müssen identisch dimensioniert sein
oZielblatt.getCellrangeByName("A2:K2").setdataarray(adaten) 'einfügen in A2:K2
end sub[/code]

Gruß Karo

hallo??
Nur eines bitte noch:
wie muss es heissen, das dass einfügen OHNE formeln passiert?
und es soll eingefügt werden (zeilen nach unten schieben)
im moment überschreibt er/es immer wieder.
Danke euch

NACHTRAG:
und es soll eingefügt werden (zeilen nach unten schieben)
im moment überschreibt er/es immer wieder.
danke nochmal

hallo karo,
ja das ist ja perfekt! vielen dank.
das sieht schon lange nicht mehr so kompliziert aus, wie mein aufgezeichneter code.
kann ich mich ja vielleicht doch mal reinarbeiten.
Nur eines bitte noch:
wie muss es heissen, das dass einfügen OHNE formeln passiert?
Danke im voraus.

sub bereich_kopieren
 oDocument = ThisComponent
   oQuellblatt = oDocument.Sheets().getByName("kunden")
   oZielblatt = oDocument.Sheets().getByName("Eingabe")
' Quellbereich festlegen
   oQuelleRange = oQuellblatt.getCellRangeByName("A3:K3")
   oQuellRangeAddresse = oQuelleRange.getRangeAddress
   oZiel = oZielblatt.getCellByPosition(0,1) 'einfügen ab A2
   oZielCellAdresse=oZiel.getCellAddress
   oZielblatt.copyRange(oZielCellAdresse,oQuellRangeAddresse)
end sub

Hallo
Den aufgezeichneten Code kannst du komplett löschen.
folgendes kopiert den Bereich A3:K3 aus dem Blatt "kunden" in den Bereich A2:K2 im Blatt "Eingabe"
[code]sub bereich_kopieren
oDocument = ThisComponent
oQuellblatt = oDocument.Sheets().getByName("kunden")
oZielblatt = oDocument.Sheets().getByName("Eingabe")
' Quellbereich festlegen
oQuelleRange = oQuellblatt.getCellRangeByName("A3:K3")
oQuellRangeAddresse = oQuelleRange.getRangeAddress
oZiel = oZielblatt.getCellByPosition(0,1) 'einfügen ab A2
oZielCellAdresse=oZiel.getCellAddress
oZielblatt.copyRange(oZielCellAdresse,oQuellRangeAddresse)
end sub
[/code]
Gruß Karo

Hallo Karo,
vielen dank für den link.
leider verstehe ich es nicht. ich sehe nicht, wie und wo ich meine aufnahme (per makrorecorder) abändern muss:
DIES sehe ich bei meiner Aufnahme:

[i]rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
[/i]

Ich möchte zB NICHT"jump to table"
kannst du mir da helfen? oder gerne andere?

Hallo
[url]http://www.dannenhoefer.de/faqstarbasic/WiekannmanZellbereichekopieren..html#Zweig194[/url]

Gruß Karo

Hallo an alle,
bitte, wie kann ich einen Bereich in einem Tabellenblatt kopieren und einfügen, ohne das ich von meinem derzeit aktivierten Tabellenblatt wechsel?
Bsp: ich bin in Blatt "Eingabe". Im Blatt "Kunden" werden die Eingaben von "Eingabe" in Zeile 2 angezeigt. Nun möchte ich vom Blatt "Eingabe" aus die Zeile 2 in "Kunden" kopieren und in Zeile 3 ohne Formeln einfügen. Wenn ich das mit dem Rekorder aufnehme, wechsel ich zwangsläufig in "Kunden" und am Ende wieder zurück. Ich möchte aber, dass das passiert ohne das die Tabellenblätter wechseln.
Danke für die Hilfe
PS: Praktisch wäre es, wenn die Kundeneingabe in "Eingaben" gleich und automatisch in eine Datenbank geschrieben würden, aber ich kenne mich in basic nicht aus, sodass ich diesen Umweg nehme.