WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

Antwort
 
Themen-Optionen Ansicht
Alt 09.01.2007, 16:12   #1
Kraeuterbutter
Hero
 
Registriert seit: 30.06.2001
Alter: 47
Beiträge: 868


Kraeuterbutter eine Nachricht über ICQ schicken
Standard Zelle in einem "OpenOffice Calc" Makro ansprechen, wie ???

hallo..
hab mein leben noch nie ein Makro programmiert oder "von innen" gesehen
folgendes:
Open Office --> Programm calc (also quasi Excel-Gegenstück)

ich hab eine lange Liste
dahinter eine Spalte..

ich will, dass die Zeilen, in denen hinten in der besonderen Spalte eine Zahl steht
(= Anzahl der bestellten ARtikel)

diese Zeile
unten in eine Liste kopieren

ich hab mal über "Makro aufzeichnen" schon ein wenig was rausgefunden
und dann mit ein paar eigenen Zeilen erweitert:

Code:


dim args2(0) as new com.sun.star.beans.PropertyValue


  dim Zelle as STRING
  dim Zeilennummer as STRING
  Zelle$ = "A160"
  

for i=6 TO 10
   Zeilennummer$ = CStr(i)     
   Zelle$ = "A"&Zeilennummer$    rem  Zusammenstoppeln der Zellennummer

   args2(0).Name = "ToPoint"
   args2(0).Value = Zelle$
   dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
   dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())   
   
   Zeilennummer$ = CStr(i+160)     
   Zelle$ = "A"&Zeilennummer$    rem  Zusammenstoppeln der Zellennummer
  
   args2(0).Name = "ToPoint"
   args2(0).Value = Zelle$
   dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
   dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
next i
so in die Richtung soll das laufen..

also das Kopieren von Zellen funktioniert..
das von Zeilen ist dann ja auch kein Problem mehr

ABER:
wie kann ich eine Zelle auslesen,
feststellen ob der eingetragene Wert
> 0 ist

und wenn ja, dann diese Zeile wo anders hinkopieren ??

ich denk das dies doch mit wenigen Zeilen zu realieren sein müsste..

aber ich komm nicht drauf wie das gehen könnte..

danke schon mal
____________________________________
my page:
www.kraeuterbutter.at
und
www.umfc-jennersdorf.com
Videos von RC-flugzeugabstürzen etc. etc.
Kraeuterbutter ist offline   Mit Zitat antworten
Antwort


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 11:22 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag