[Gelöst] Makro auslösen bei Verlassen einer Zelle in Calc

[Reginald]

Hallo zusammen,

für Excel habe ich das einmal gelesen, bei Calc habe ich da keine Idee, wie man ansetzen soll:

Wenn ich eine (bestimmte) Zelle bearbeitet habe und Enter drücke, soll ein Makro aufgerufen werden (das dann beispielsweise die Eingabe auf Plausibiltät überprüft). Wie triggert man soetwas in Calc?

Das soll in einem bestimmten Bereich passieren, also es soll beispielsweise für die Bearbeitung einer beliebigen Zelle im Bereich A1 bis A100 gelten.

Was wäre der Ansatz dafür?

Grüße

Reginald

[F3K Total]

Hi,
schau vielleicht mal nach ob Du unter den Tabellenereignissen was passendes findest. (rechte Maustaste auf den Tabellenreiter)

Gruß R

Edit:
zum Bereich:

Code: Alles auswählen

oCellRange = oSheet.getCellRangeByName("B2:F50")'aktiver Bereich 
oSelection = ThisComponent.CurrentSelection
if oSelection.supportsService("com.sun.star.sheet.SheetCell") then
oCellsRangeAddress = oSelection.RangeAddress
if oCellRange.queryIntersection(oCellsRangeAddress).count = 1 then'Es gibt ocell in oCellrange
'mach hier was du benötigst
endif
endif

[Stephan]

Was wäre der Ansatz dafür?

z.B. über Daten-Gültigkeit für die Zellen eine Eingabe definieren die nicht voraussichtlich nicht vorkommt, z.B.:

Zulassen: Textlänge
Daten: gleich
Wert: 0

und im Register Fehlermeldung die OPtion "Fehlerprüfung bei Angabe ungültiger Werte einschalten" aktivieren, als Aktion "Makro" wählen und die folgende Funktion zuweisen:

Code: Alles auswählen

Function eingabepruefung(zellwert, zelladresse) As Boolean
  If zellwert = 3 Then
      'Wert übernehmen: 
      eingabepruefung = True
    Else
      'Eingabe abweisen:
      eingabepruefung = False
  End if
End Function

Das zu prüfende Kriterium (hier also Eingabewert 3) lässt sich natürlich anpassen.




Gruß
Stephan

[Reginald]

Hallo!

Ja, vielen dank, das funktioniert!

Super,

Reginald