OpenOffice.info

REM  *****  BASIC  *****

Dim oModListener as object
Dim oModZelle as object

Sub AutoOnOpen
   	on error resume next
   	AutoOnClose
   
   	oModListener = CreateUnoListener("MyChange_", "com.sun.star.util.XModifyListener")
   	oModZelle = ThisComponent.sheets().getByName("Tabelle1").getCellRangeByName("A10")
   	oModZelle.AddModifyListener(oModListener)
End Sub

Sub AutoOnClose
	on error resume next
	oModZelle.removeModifyListener(oModListener)
End Sub

Sub MyChange_Modified(oEvent)
   oActZelle = ThisComponent.CurrentSelection
   if oActZelle.supportsService("com.sun.star.sheet.SheetCell") then
      if oActZelle.Value = 23 Then
         oCell = ThisComponent.sheets().getByName("Tabelle1").getCellRangeByName("S17")
         oCell.Value = oCell.Value + 1
      endif
   endif
End Sub

Abend auch,

Dein Change-Ereignis tut schon in Excel nicht das was Du möchtest.

S17 wird da nur erhöht wenn Du A10 manuell (oder per VBA) auf den Wert 23 veränderst, nicht wenn die Änderung durch eine Formel geschieht.

Von dem abgesehen sollte sich das Change-Ereignis von Excel in etwa so in OOo Calc realisieren lassen.

Um das automatisch zu starten musst Du AutoOnOpen noch mit dem Ereignis "Dokument öffnen" und AutoOnClose mit dem Ereignis "Dokument schließen" verknüpfen.

Jegliche Verbesserungen sind mehr als willkommen.

cu, Bernd
--
[code]
REM ***** BASIC *****

Dim oModListener as object
Dim oModZelle as object

Sub AutoOnOpen
on error resume next
AutoOnClose

oModListener = CreateUnoListener("MyChange_", "com.sun.star.util.XModifyListener")
oModZelle = ThisComponent.sheets().getByName("Tabelle1").getCellRangeByName("A10")
oModZelle.AddModifyListener(oModListener)
End Sub

Sub AutoOnClose
on error resume next
oModZelle.removeModifyListener(oModListener)
End Sub

Sub MyChange_Modified(oEvent)
oActZelle = ThisComponent.CurrentSelection
if oActZelle.supportsService("com.sun.star.sheet.SheetCell") then
if oActZelle.Value = 23 Then
oCell = ThisComponent.sheets().getByName("Tabelle1").getCellRangeByName("S17")
oCell.Value = oCell.Value + 1
endif
endif
End Sub[/code]

S17 = 23. A10 = 1, dann ändert sich etwas und es steht in S17 eine 42. A10 bleibt 1. Es ändert sich wieder etwas und in S17 steht wieder eine 23. Jetzt sollte in A10 eine 2 stehen. Kann es sein, dass das mit Oo nicht geht?!

Sorry, verstehe nur Bahnhof:

wie [b]oft[/b] eine 23 in einer Zelle erscheint?

Wenn S17 leer ist und in A10 der Wert 23 steht (auch aus einer Formel berechnet), dann ist 1 absolut korrekt.

Was mit Excel ist kann ich nicht sagen: hier geht es um OOo und ich habe keine Microsoft-Produkte.

Ich habe Oo Version 3.1.

Die Formel funktionierte auch schon bei Excel nicht. Ich möchte das mir eine Zelle zählt, wie oft in einer anderen (deren Inhalt auch eine Formel ist) die 23 erscheint.

Nein, S17 ist noch leer. Mittig glaube ich.

[quote="shrabbels"]So steht immer eine 1 da.[/quote]
noch ne Idee: steht in S17 ein Text? Linksbündig ausgerichet?

[quote="shrabbels"]Hallo Ihr beiden und vielen Dank für eure Antworten.[/quote]
Ich bin nur einer ... siehst Du doppelt? 8)

[quote="shrabbels"]Das mit der Formel funktioniert leider nicht, da fortlaufend gezählt werden soll. So steht immer eine 1 da.[/quote]
Dann machst Du etwas falsch* oder die Rahmenbedingungen** stimmen nicht!

* meine Ratschläge hier sind immer getestet und funktionieren demnach
** welche OOo-Version hast Du? für welches Betriebssystem?

oder ich muss mir doch das echte Excel besorgen.

Hallo Ihr beiden und vielen Dank für eure Antworten.

Das mit der Formel funktioniert leider nicht, da fortlaufend gezählt werden soll. So steht immer eine 1 da.

Ehrlich gesagt ist mir das mit dem reinarbeiten zu aufwendig, da das Problem höchstwahrscheinlich das einzige sein wird, was es bei mir zu lösen gilt. Ich bin überhaupt beim Programieren ein blutiger Anfänger und stoße hier schon an die Grenzen meiner Fähigkeit und Lust. Aber mir scheint nichts anderes übrig zu bleiben...

Hehe, hast Du meine Antwort [url=http://de.openoffice.info/viewtopic.php?f=9&t=34107]hier[/url] nicht gelesen - oder nicht verstanden?

Hallo, ich bin neu hier und habe eine Frage.

Kann mir jemand sagen wie der korrekte Oo Makro-Code für folgenden Microsoft Excel VBA-Code lautet. Oo nimmt ihn einfach so nicht.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$10" Then
If Target.Value = 23 Then
Application.EnableEvents = False
Range("S17").Value = Range("S17").Value + 1
Application.EnableEvents = True
End If
End If
End Sub

Herzlichen Dank schon mal.