Hallo Kornelia,
Kornelia Lubke schrieb:
> Könnte ich die Funktion auch bei
> einem Button anwenden? Möchte auf ein Button klicken und dasselbe
> Ergebnis haben. Und wenn es geht, wo bzw. wie muss ich es
> eintragen/angeben?
Mit 'normalen' Mitteln meines Wissens nicht. Es geht mit Makro nur ist
die Frage wie man dort die notwendigen Parameter übergibt wenn es
_flexibel_ sein soll. Ich weiß nicht ob es so toll wäre nur dafür eine
Hilfstabelle zu nutzen und wenn ich den relevaten Teil der Formel als
benannten Bereich definiere(*) komme ich nicht per Basic an dessen
Ergebnis, jedenfalls ist mir noch nichts eingefallen.
(*)
unter Einfügen-Namen beispielsweise:
Name: par1
Zugeordnet zu: "#Tabelle1.F"&VERGLEICH("marder";$Tabelle1.$F$1:$F$19;0)
was als Tabellenfunktion dann wäre:
=HYPERLINK(par1)
nur eignet sich dieser Ausdruck ebend auch nicht für Hyperlinks als
URL-Angabe sonst wäre es ja leicht mit der Schaltfläche.
Was relativ flexibel ist wäre die Eigenschaft .TargetURL der
Schaltfläche mittels benutzerdefinierter Funktion ständig zu
aktualisieren, also beispielsweise:
Zelle A1:
="#Tabelle1.F"&VERGLEICH("marder";$Tabelle1.$F$1:$F$20;0)
Zelle A2:
=ZIEL(A1)
wenn ZIEL():
Function ziel()
x = ThisComponent.sheets.GetByName("Tabelle1").drawpage.forms(0)
x.getByName("PushButton").TargetURL =
ThisComponent.sheets.GetByName("Tabelle1").getCellRangeByName("A1").Stri
ng
End Function
und es auf dem Sheet nur eine Schaltfläche namens "PushButton" gibt.
Jetzt führt jede Änderung in Spalte F bezüglich der Zelle die "marder"
enthält zu einer Änderung in A1 und mit dem Trick der Parameterangabe
für ZIEL() wird laufend die Eigenschaft .TargetURL der Schaltfläche
angepasst.
Oder etwas eleganter mit einem benannten Bereich (s.o.) und der
Funktion:
Function ziel(a)
x = ThisComponent.sheets.GetByName("Tabelle1").drawpage.forms(0)
x.getByName("PushButton").TargetURL = a
End Function
und Aufruf:
=ZIEL(par1)
Du siehst also es geht, nur ob sich dieser Aufwand lohnt kann ich nicht
so recht entscheiden.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
