OpenOffice.info

Hi Karo,
vielen DANK für deine zeit und die tipps die du mir gibst.
heut mach ich nix mehr - bis demnächst mal wieder.

sub Achim_in_B10
'aus dem aufgezeichneten Code geht nicht das Tabellenblatt hervor ??
'für Blatt1 mit Index 0 ↓
thisComponent.Sheets(0).getcellrangebyName("B10").string = "Achim"
end sub

Hallo Achim
[code]sub Achim_in_B10
'aus dem aufgezeichneten Code geht nicht das Tabellenblatt hervor ??
'für Blatt1 mit Index 0 ↓
thisComponent.Sheets(0).getcellrangebyName("B10").string = "Achim"
end sub[/code]

es hilft dir mehr wenn du dir in aller Ruhe [url]http://www.dannenhoefer.de/faqstarbasic/index.html[/url] anschaust !
Gruß Karo

n´abend gemeinde,
(hoffentlich guckt karolus hier rein :) )
habe dieses hier aufgezeichnet:

[i]sub test
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$10"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "Achim"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
end sub[/i]

Das ist so kompliziert!!
es geht bestimmt in einer (oder zwei) zeile(n).
aber ich finde im forum nichts entsprechendes.

[b]>>> wie schreibe ich [i](per makro - logisch)[/i] in zelle B10 "Achim" rein.[/b]
danke