Text in zelle schreiben

[achimgr]

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

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

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

>>> wie schreibe ich (per makro - logisch) in zelle B10 "Achim" rein.
danke

[Karolus]

Hallo Achim

Code: Alles auswählen

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

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

[achimgr]

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.