RE: [de-users] Problem bei der Maro-Programmierung

2009-07-01 Diskussionsfäden openoffice
Hallo,



Ich hatte ein ähnliches Problem. Auch ich hatte statische
Button, aber es waren etwa 160. für jeden Button nun ein
eigenes Makro zu schreiben und es diesem zuzuweisen wäre
wenig praktikabel.

Daher war ich sehr froh über eine zufällige Lösung aus dem
Makrobuch zu Openoffice von Thomas Krumbein.

Hier wurden statt Button sogenannte Radiobutton verwendet.
Alle Button lösen bei Änderung ihres Status das gleiche
makro aus. Mittels einer einfachen Schleife kann jetzt
herausgefunden werden, welcher Radiobutton aktiv ist.

(if oDialog.getControl(optionButton1).state then ...)

diese einfache Abfrage hat zur Folge das wenn der Button
ausgewählt wurde das If statment 1 und somit wahr wird.
Jetzt kannst du einfach mitteles Abfrage des Labels
herausfinden, was der Nutzer mit dem Klick bezweckt hat.
Also welche Zeile etc.



Ich hoffe hier eine Anregung gegeben zu haben.
Vorraussetzung ist aber das die Radiobutton durch nummeriert
sind und somit nur anhand einer einfachen hochzählbaren
Variable unterscheiden. Sonst geht das Konzept der Schleife
nicht auf. Das Label ist unabhängig vom Namen des Buttons.



Viele Grüße und Erfolg





 -Ursprüngliche Nachricht-
  Von: Tobias Maurer 
  Gesendet: Tue. 30.06.09 (11:45)
  An: users@de.openoffice.org
  Betreff: [de-users] Problem bei der Maro-Programmierung
  
  Sehr geehrte Damen und Herren,
  ich befasse mich zurzeit mit der Konvertierung einiger
Excel-Dateien
  in Open-Office-Dateien. Dabei bin ich auf ein Problem
gestoßen,
  welches ich bisweilen auch unter Zuhilfenahme des
Internets nicht
  lösen konnte. Aus diesem Grund wende ich mich nun
vertrauensvoll an
  diesen Support.
  
  Mein Problem:
  Ich möchte über verschiedene Buttons an bestimmte
Stellen in
  verschiedenen Datenblättern springen. Bis dato kein
Problem. Jedoch
  möchte ich anhand der Aufschrift der Buttons an eben
diese Stellen
  springen.
  
  Soll heißen: Ich möchte beim Aufruf des Makros
herausfinden, von
  welchem Button aus es gestartet wurde. Bislang habe ich
jedoch nur
  herausgefunden, wie ich die auf die Eigenschaften mir
bekannter Items
  zugreifen kann, nicht jedoch auf mir zum Zeitpunkt des
Makrostarts
  unbekannte Items.
  
  Ich hoffe sie können mir bei meinem Problem behilflich
sein.
  Im anhang finden sie eine von mir erstellte Testdatei,
in welcher das
  Makro enthalten ist.(Für den Fall, dass meine
Ausführungen für
  Außenstehende etwas verwirrend klingen sollten).
  
  Vielen Dank im voraus.
  
  Mit besten Grüßen
  Tobias Maurer
  --
  Neu: GMX Doppel-FLAT mit Internet-Flatrate +
Telefon-Flatrate
  für nur 19,99 Euro/mtl.!*
http://portal.gmx.net/de/go/dsl02
  
  
  -Ursprüngliche Nachricht Ende-







#adBox3 {display:none;}



-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Installationsprobleme mit open office 3.1

2009-07-01 Diskussionsfäden Eric Hoch
Hallo Helmut,

antworten bitte an die Liste nicht an mich privat. 
 
Am Tue, 30 Jun 2009 09:31:54 +0200 schrieb Helmut Illauer:
 Hallo,
 ich habe open office 3.1 heruntergeladen,aber es lässt sich nicht 
 installieren,es kommt immer die Meldung open office 3.1 zu 
 schliessen und auch den Quickstarter schliessen.

Ich nehm einfach mal an, dass die Fehlermeldung unter Windows 
auftaucht und es dürfte auch so ziemlich egal sein welches ab XP. 
Um das Problem zu lösen schaust Du bitte mal rechts unten im 
Bildschirm, dort wo im Regelfall die Uhrzeit angezeigt wird, und 
siehst dort neben der Uhrzeit weitere Icons und ein Icon mit einem 
Doppelpfeil . Entweder siehst Du jetzt bei den noch angezeigten 
Icons das OOo Icon in Miniaturform oder aber erst nachdem Du auf 
den Doppelpfeil  gedrückt hast. Rechte Maustaste auf dieses 
Mini-OOo-Icon und schon sollte ein Menü erscheinen, welches es 
erlaubt diesen Schnellstarter zu schließen. Nachdem Du das gemacht 
hast, nochmal prüfen ob auch das eigentliche OOo Programm 
geschlossen ist und dann die Installation erneut versuchen. 

Kommt noch immer eine Fehlermeldung wie die obige prüfe bitte mal 
im Taskmanager, hier hilft dir google zu erfahren, wie er für dein 
Windows aufgerufen wird, ob noch OpenOffice.org/StarOffice/soffice 
Prozesse laufen und beende diese ggf. vor einem erneuten Versuch.

Laufen keine Prozesse, ist der Schnellstarter und OOo beendet und 
es lässt sich noch immer nicht installieren, dann melde dich 
nochmal auf der Liste hier. Bin sicher, dass die Windowsanwender 
noch ein paar mehr Ideen haben. 

Freundliche Grüße
Eric Hoch

-- 
## de.OpenOffice.org - Office für MacOS X, Linux, Solaris  Windows
## Openoffice.org - ich steck mit drin!

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Edgar Kuchelmeister

Hallo Liste,

ich habe eine Anfrage als PM erhalten.
OpenOffice.org Version 3.1
Betriebssystem Windows XP

Problem:
Ein Fontwork-Objekt soll verschoben werden, die Anzeige während des 
Verschiebens ruckelt so stark, dass ein genaues Positionieren nicht 
möglich ist.
Ein Abschalten der Hardwarebeschleunigung in Extras  Optionen hat 
nichts gebracht.


Hat jemand von euch eine Idee wie dem Problem beizukommen ist.
Auf meinem beiden Rechnern habe ich das Problem nicht.

--

Einen schönen Tag noch.
Mit freundlichem Gruß
Edgar Kuchelmeister

### Anwenderbetreuer users-Mailingliste
### edekuatopenoffice.org
### http://wiki.services.openoffice.org/wiki/DE/FAQ

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Andre Schnabel
Hallo,

 Original-Nachricht 
 Von: Edgar Kuchelmeister ed...@openoffice.org

 Problem:
 Ein Fontwork-Objekt soll verschoben werden, die Anzeige während des 
 Verschiebens ruckelt so stark, dass ein genaues Positionieren nicht 
 möglich ist.
 Ein Abschalten der Hardwarebeschleunigung in Extras  Optionen hat 
 nichts gebracht.

An gleicher Stelle das Antialiasing abschalten sollte (hoffentlich) helfen.

Gruß,

André
-- 
GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Edgar Kuchelmeister

Hallo André,

Andre Schnabel schrieb am 01.07.2009 14:23:


An gleicher Stelle das Antialiasing abschalten sollte (hoffentlich) helfen.


hab ich ihm schon gesagt und hat angeblich nichts gebracht.

--

Einen schönen Tag noch.
Mit freundlichem Gruß
Edgar Kuchelmeister

### Anwenderbetreuer users-Mailingliste
### edekuatopenoffice.org
### http://wiki.services.openoffice.org/wiki/DE/FAQ

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Re: Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Mario Herman
Edgar Kuchelmeister ed...@... writes:

 
 Hallo André,
 
 Andre Schnabel schrieb am 01.07.2009 14:23:
 
  An gleicher Stelle das Antialiasing abschalten sollte (hoffentlich) helfen.
 
 hab ich ihm schon gesagt und hat angeblich nichts gebracht.


Ich weiß nicht, ob es hilft, aber probieren kann er:
Das neue Verhalten für Objekte verschieben abschalten.
Das geht in der Menüleiste 'Optionen' mit dem Klick auf das
Symbol mit dem Pinsen.

Ein weiterer Schuss ins Blaue, wäre Hardwarebeschleunigung
abzuschalten.

Mario 





-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Re: Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Edgar Kuchelmeister

Hallo Mario,

Mario Herman schrieb am 01.07.2009 15:10:


Ich weiß nicht, ob es hilft, aber probieren kann er:
Das neue Verhalten für Objekte verschieben abschalten.
Das geht in der Menüleiste 'Optionen' mit dem Klick auf das
Symbol mit dem Pinsen.


Ich weiß nicht was du mit Pinsen meinst? Hilfslinie beim Verschieben?
Naja, mit den Hilflinien wird es bei mir auch etwas ruckliger.


Ein weiterer Schuss ins Blaue, wäre Hardwarebeschleunigung
abzuschalten.


hatte ich ihm schon gesagt und hat nichts gebracht.

--

Einen schönen Tag noch.
Mit freundlichem Gruß
Edgar Kuchelmeister

### Anwenderbetreuer users-Mailingliste
### edekuatopenoffice.org
### http://wiki.services.openoffice.org/wiki/DE/FAQ

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Re: Fontwork Objekt ruckelt beim verschieben

2009-07-01 Diskussionsfäden Mario Herman
Edgar Kuchelmeister ed...@... writes:

 
 Ich weiß nicht was du mit Pinsen meinst? 

Pinsen = mein Vertipper.

Pinsel.
Das zweite Symbol von rechts.

Mario


-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Re: Problem bei der Maro-Programmierung

2009-07-01 Diskussionsfäden Andreas Saeger

Versuch mal folgendes:
=HYPERLINK(vnd.sun.star.script:Library1.Module1.Main?language=Basiclocation=documents=TABELLE()r=ZEILE()c=SPALTE();MACRO)
und formatiere die Zelle, dass sie wie eine Schaltfläche aussieht.

REM ###BASIC###
REM Library1.Module1
Sub Main(sURL$)
iSh=cInt(getArgumentFromURL(sURL,s)) -1
iRow=cInt(getArgumentFromURL(sURL,r)) -1
iCol=cInt(getArgumentFromURL(sURL,c)) -1
oCell = ThisComponent.Sheets(iSh).getCellByPosition(iCol, iRow)
print Hallo Welt, Dein  oCell.AbsoluteAddress
End Sub

Function getArgumentFromURL(sURL$,sName$) as String
on error goto exitErr:
Dim iStart%, i%, l%, sArgs$, a()
iStart = instr(sURL, ?)
l = len(sName)
if (iStart = 0) or (l = 0) then exit function
' sArgs behind ?:
sArgs = mid(sURL, iStart +1)
a() = split(sArgs, )
for i = 0 to uBound(a())
' not case sensitive:
if instr(1, a(i), sName =, 1) = 1 then
getArgumentFromURL = mid(a(i), l +2)
exit for
endif
next
exitErr:
' return 
End Function


-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Re: Problem bei der Maro-Programmierung

2009-07-01 Diskussionsfäden Andreas Saeger

Andreas Saeger wrote:

Versuch mal folgendes:
=HYPERLINK(vnd.sun.star.script:Library1.Module1.Main?language=Basiclocation=documents=TABELLE()r=ZEILE()c=SPALTE();MACRO) 


und formatiere die Zelle, dass sie wie eine Schaltfläche aussieht.



Uuups, falsche Zwischenablage. Bitte Main(sURL) ersetzen:

Sub Main(sURL$)
iSh=cInt(getArgumentFromURL(sURL,s)) -1
iRow=cInt(getArgumentFromURL(sURL,r)) -1
iCol=cInt(getArgumentFromURL(sURL,c)) -1
oCell = ThisComponent.Sheets(iSh).getCellByPosition(iCol, iRow)
print Hallo Welt, Dein  oCell.AbsoluteName
End Sub


Function getArgumentFromURL(sURL$,sName$) as String
on error goto exitErr:
Dim iStart%, i%, l%, sArgs$, a()
iStart = instr(sURL, ?)
l = len(sName)
if (iStart = 0) or (l = 0) then exit function
' sArgs behind ?:
sArgs = mid(sURL, iStart +1)
a() = split(sArgs, )
for i = 0 to uBound(a())
' not case sensitive:
if instr(1, a(i), sName =, 1) = 1 then
getArgumentFromURL = mid(a(i), l +2)
exit for
endif
next
exitErr:
' return 
End Function



-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Fließtext über Rand

2009-07-01 Diskussionsfäden Guido Ostkamp

Hallo,

ich arbeite mit Open Office 3.1.0 und habe das Problem, dass mitten in 
einem Fließtext ohne erkennbaren Grund der Text über den Rand ins 
Nirwana läuft. Ich kann es mir nicht erklären und weiß nicht, was ich 
machen kann. Kann jemand helfen?


dafür könnte ich mir mehrere Gründe vorstellen, z.B. negativer 
Absatzeinzug hinter Text, Tabellenzelle oder Textrahmen die sich nach 
außen fortsetzen usw.


Falls keine Tabellen oder Rahmen im Spiel sind, in denen sich der Text 
befindet, einfach mit dem Cursor in dem Absatz mal Format - Absatz - 
Einzüge und Abstände aufrufen und den Eintrag Hinter Text auf 0 
stellen, falls er negativ ist.


Gruß

Guido
-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org

[de-users] Aktualisierte deutsche Wörterbücher - frami (2009- 07-01)

2009-07-01 Diskussionsfäden Karl Zeiler

Hallo,

die deutschen Wörterbücher von Franz Michael Baumann (frami) sind
aktualisert worden. Sie stehen ab sofort in allen drei deutschen
Lokalisierungen zum Download bereit (Version: 2009-07-01):

http://extensions.services.openoffice.org/project/dict-de_DE_frami
http://extensions.services.openoffice.org/project/dict-de_AT_frami
http://extensions.services.openoffice.org/project/dict-de_CH_frami

Mit freundlichen Grüßen
Karl Zeiler 


-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



[de-users] Abfrage Datenquelle in OOo 1.1.5

2009-07-01 Diskussionsfäden marcus hoffmann
Hallo Liste,

 

voweg: OOo 1.1.5 unter Windows XP

(nicht wundern, ich brauche OOo 1.1.5 zur Verwendung mit dem ODBC-Treiber
NotesSQL, da OOo ab 2.x hier zu Abstürzen führt)

 

 

kennt jemand folgendes Phänomen und kennt eine Lösung:

 

ich erstelle z.B. in Writer eine Abfrage in der Datenquelle (Extras –
Datenquellen – Abfragen).

Diese Abfrage hat 5 oder mehr „ODER“-Kriterien, z.B.

 

[aus der SQL-Ansicht kopiert]

SELECT Type, Author, Editor, Pages, Title FROM biblio biblio
WHERE ( ( Title LIKE '%star%' ) OR ( Title LIKE '%office%' ) OR (
Title LIKE '%echt%' ) OR ( Title LIKE '%einfach%' ) OR ( Title LIKE
'%Das%' ) )

 

Öffne ich die Abfrage erneut in der Designansicht oder wechsle ich auch nur
von der SQL- in die Design-Ansicht, ist dort das fünfte Kriterium nicht mehr
zu sehen.

Es ist egal, welches Kriterium das fünfte ist.

Es ist auch egal, wie viel Kriterien ich eingebe: 5, 7, 11, …

 

Es fehlt immer die Anzeige des fünften Kriteriums.

 

In der SQL-Ansicht ist das Statement noch komplett: alle 5 Kriterien.

 

Wer es nicht glaubt, kopiert sich die Abfrage in die SQL-Ansicht
(Datenquelle Biblio unter Writer 1.1.5, die hat jeder) und wechselt in die
Designansicht.

 

Bin gespannt, ob sich jemand meldet!

Gruß,

Marcus



Re: [de-users] Abfrage Datenquelle in OOo 1.1.5

2009-07-01 Diskussionsfäden Frank Schönheit - Sun Microsystems Germany
Hallo Marcus,

 voweg: OOo 1.1.5 unter Windows XP

Uhoh. Da bin ich ja froh, dass Du nicht Windows 3.1 geschrieben hast :)

 (nicht wundern, ich brauche OOo 1.1.5 zur Verwendung mit dem ODBC-Treiber
 NotesSQL, da OOo ab 2.x hier zu Abstürzen führt)

Ich weiß, das trägt gerade nicht zur Lösung Deines Problems bei, aber:
Gibt es dafür einen Bug in IssueZilla? Hast Du eventuell den
Crash-Reporter mal die Infos über einen Absturz (idealerweise in der
aktuellen Version, also 3.1) senden lassen, und eine Mail mit der
Report-ID bekommen, die Du mir nennen kannst?

 Es fehlt immer die Anzeige des fünften Kriteriums.

Klingt eindeutig nach einem Bug :)
Die Innereien des Abfrage-Entwurfes kennen bezweifle ich, dass man da so
ohne weiteres drum herum arbeiten kann.

Ciao
Frank

-- 
- Frank Schönheit, Software Engineer frank.schoenh...@sun.com -
- Sun Microsystems  http://www.sun.com/staroffice -
- OpenOffice.org Base   http://dba.openoffice.org -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Problem bei der Maro-Programmierung

2009-07-01 Diskussionsfäden Gisbert Friege

Hallo Tobias,

Tobias Maurer schrieb:


Soll heißen: Ich möchte beim Aufruf des Makros herausfinden, von
welchem Button aus es gestartet wurde. 


Ich interpretiere deine Frage mal so:
du möchtest ein Makro bauen, das weiß, von welchem Button es 
aufgerufen wurde.


Ich habe das in Dmaths (eine unerschöpfliche Fundgrube für Ideen im Fach 
Makroprogrammierung mit OOo-sbasic) so gemacht wie Laurent Godard es mir 
damals geraten hatte:


Schreibe deinem Makro einen Parameter in die Klammer:

Sub Verweis(event)
Dim LS as string
LS = event.source.model.Label
msgbox LS
End Sub

Auf diese Weise können viele verschiedene Button dasselbe Makro nutzen, 
das dann in Abhängigkeit vom Wert von LS jeweils eine andere Aktion 
ausführen könnte.


Wenn du wirklich in die Programmierung von sbasic einsteigen willst 
solltest du dir Xray besorgen.

Dann kannst du mit der Befehlsfolge
xray event
xray event.source
xray event.source.model
schrittweise erforschen, was in dem Parameter event drin steckt.

Noch eine Tipp zu Xray: vor jeder Verwendung von Xray nach einem 
Neustart von OOo musst du es in der Makroverwaltung (unter Meine 
Makros) durch einen Klick auf die Ordner XrayDyn und XrayTool anmelden 
(die Ordnerfarbe wechselt dabei auf gelb).


Viel Erfolg!
Gisbert



-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



AW: [de-users] Abfrage Datenquelle in OOo 1.1.5

2009-07-01 Diskussionsfäden marcus hoffmann
Hallo Frank,

wahnsinn; mit so einer schnellen Reaktion auf meinen Eintrag hatte ich nicht
gerechnet!

  (nicht wundern, ich brauche OOo 1.1.5 zur Verwendung mit dem ODBC-
 Treiber
  NotesSQL, da OOo ab 2.x hier zu Abstürzen führt)
 
 Ich weiß, das trägt gerade nicht zur Lösung Deines Problems bei, aber:
 Gibt es dafür einen Bug in IssueZilla? Hast Du eventuell den
 Crash-Reporter mal die Infos über einen Absturz (idealerweise in der
 aktuellen Version, also 3.1) senden lassen, und eine Mail mit der
 Report-ID bekommen, die Du mir nennen kannst?
 

Ich habe das Thema bereits zweimal in der Mailinglist angerissen.
Ein Issue habe ich seit geraumer Zeit auch laufen.
Das wurde auf meine Bitte kürzlich auch wieder eröffnet, nachdem es
seinerzeit aus Mangel an Informationen geschlossen wurde:

Issue 86770

Ich wage ja fast nicht zu hoffen, dass dieses Problem doch nochmal gelöst
werden kann.
Um das sonstige Publikum nicht zu langweilen, möchte ich hier in diesem
Thread, der ja eigentlich ein anderes Thema behandelt, nicht nochmals die
ganze Info zum Grundproblem wiederholen.
Steht aber alles in besagtem Issue. Kann ich noch etwas beitragen? Ich wäre
bereit, fast alles zu tun ...

Besten Dank und beste Grüße,
Marcus


-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: AW: [de-users] Abfrage Datenquelle in OOo 1.1.5

2009-07-01 Diskussionsfäden Mechtilde
Hallo Marcus, *,

marcus hoffmann schrieb:
 Hallo Frank,
 
 wahnsinn; mit so einer schnellen Reaktion auf meinen Eintrag hatte
 ich nicht gerechnet!


 
 Issue 86770

Ich wiederhole nochmal meine Anfrage, die auch bereits schom in Issue
gestellt wurde:

Gibt es eine Testversion des verwendeten Datenbank-Management-System
NotesSQL 8.0

Damit wäre es möglich, dies auf einem weiteren System zu reproduzieren.

 behandelt, nicht nochmals die ganze Info zum Grundproblem
 wiederholen. Steht aber alles in besagtem Issue. Kann ich noch etwas
 beitragen? Ich wäre bereit, fast alles zu tun ...


Gruß

Mechtilde


-- 
Dipl. Ing. Mechtilde Stehmann
## http://de.openoffice.org
## Ansprechpartnerin für die deutschsprachige QA
## Freie Office-Suite für Linux, Mac, Windows, Solaris
## Meine Seite http://www.mechtilde.de
## PGP encryption welcome! Key-ID: 0x53B3892B


-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org



Re: [de-users] Problem bei der Maro-Programmierung

2009-07-01 Diskussionsfäden Volker Heggemann

Gisbert Friege schrieb:

Hallo Tobias,

Tobias Maurer schrieb:


Soll heißen: Ich möchte beim Aufruf des Makros herausfinden, von
welchem Button aus es gestartet wurde. 


Ich interpretiere deine Frage mal so:
du möchtest ein Makro bauen, das weiß, von welchem Button es 
aufgerufen wurde.


Ich habe das in Dmaths (eine unerschöpfliche Fundgrube für Ideen im 
Fach Makroprogrammierung mit OOo-sbasic) so gemacht wie Laurent Godard 
es mir damals geraten hatte:


Schreibe deinem Makro einen Parameter in die Klammer:

Sub Verweis(event)
Dim LS as string
LS = event.source.model.Label
msgbox LS
End Sub

Auf diese Weise können viele verschiedene Button dasselbe Makro 
nutzen, das dann in Abhängigkeit vom Wert von LS jeweils eine andere 
Aktion ausführen könnte.

Tobias, das klappt tadelos.
In dem Macro was ich dir zugesandt habe sieht das dann so aus:
___
Sub button1(event)
 dim suche
 dim found
 dim oSheet
 Dim LS as string
 LS = event.source.model.Label
 msgbox LS
 rem Suche von button1 aus
 oSheet = ThisComponent.getsheets().getbyname(Tabelle2)  
 suche = LS

 found=SimpleSheetSearch(suche, oSheet, true)
 MsgBox(Von Button 1 gefunden:found.getstring(),,INFORMATION)
 rem oder einfach:  print found.getstring()
 rem selektiere die Zelle
 ThisComponent.CurrentController.Select(found)
end sub



mfg
Volker

-
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org