Hallo Martens,
am 18.09.2013 um 11:05 Uhr schriebst Du:
> Hier mal der Versuch mein Problem zu beschreiben. Habe eine Mappe
> ‘Muster01.ods’ mit mehreren leeren Blättern ‘Tabelle1’, ‘Tabelle2’
> usw. neu erstellt. Für diese Mappe habe ich in
> ‘Muster01.ods/Standard/Module1’ folgendes Makro geschrieben: REM
> ***** BASIC *****
>
> option Explicit
>
> '######################################################################
>
> Public Sub InhaltGeaendert()
>
> Dim s As String
>
> 'Verweis auf die aktuelle Zelle Dim oCellAddress As Object
> oCellAddress = ThisComponent.CurrentSelection.CellAddress
>
> 'Verweis auf das Blatt mit der geänderten Zelle Dim oSheet As
> Object oSheet = ThisComponent.Sheets(oCellAddress.Sheet)
>
> 'Zeile mit der geänderten Zelle Dim iRow as Integer iRow =
> oCellAddress.Row
>
> 'Spalte mit der geänderten Zelle Dim iCol As Integer iCol =
> oCellAddress.Column
>
> 'Verweis auf die geänderte Zelle Dim oCell As Object oCell =
> oSheet.getCellByPosition(iCol,iRow)
>
> 'Inhalt der geänderten Zelle als Variant Dim v As Variant v =
> oCell.String
>
> s = "InhaltGeändert()" s = s & chr(13) s = s & "Sheet=" &
> oSheet.Name s = s & chr(13) s = s & "Row=" & iRow & ", Col=" &
> iCol s = s & chr(13) s = s & "Value=" & v
>
> MsgBox s
>
> End Sub 'InhaltGeaendert(..)
>
> '######################################################################
>
> Dem Ereignis “Der Status ‘Geändert’ wurde geändert” habe ich die
> Aktion ‘Standard.Module1.InhaltGeaendert’ zugewiesen und im
> ‘Muster01.ods’ gespeichert.
>
> Erwarten tu ich, dass bei Änderung des Inhalts einer beliebigen
> Zellen auf einem beliebigen Blatt dieser Mappe eine entsprechende
> Meldung angezeigt wird. Das funktioniert auch, jedoch nur einmal.
> Wird eine weitere Zelle geändert, dann passiert nichts.
Nur mal so als Vermutung: Kann es sein, dass Du vielleicht am Ende
Deiner Aktionen entweder die Datei speichern musst oder sonstwie den
Status wieder auf ungeändert stellen musst, damit bei der nächsten
Zell-Änderung Dein Makro wieder ausgelöst wird?
> Was mach ich falsch?
>
> Gruß von Henning
.... und tschüss
Franklin
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
