Re: [de-users] Hilfe bei Ereignisbehandlung

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: users+unsubscribe@de.libreoffice.org
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