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
