OpenOffice.info

Sub S_cell_check_A4_A1000(event)
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    oRange = osheet.getcellrangebyname("A4:A1000")
    if oRange.queryIntersection(event.RangeAddress).count = 1 then   
        msgbox "Ich, die Zelle """+event.AbsoluteName+""" liege im Zellbereich A4:A1000"
    end if
End Sub

Hi,
binde mal dieses Makro an das [color=#FF0000][b]Tabellenereignis[/b][/color] [color=#0040FF][b]Inhalt geändert[/b][/color]:

[code]Sub S_cell_check_A4_A1000(event)
osheet = thiscomponent.sheets.getbyname("Tabelle1")
oRange = osheet.getcellrangebyname("A4:A1000")
if oRange.queryIntersection(event.RangeAddress).count = 1 then
msgbox "Ich, die Zelle """+event.AbsoluteName+""" liege im Zellbereich A4:A1000"
end if
End Sub[/code]
Gruß R

Sub Main(x)
	With x.RangeAddress
		tmp = 0
		If .Startrow >= 0 Then tmp = tmp +1
		If .EndRow <= 19 Then tmp = tmp + 1
		If .StartColumn = 0 AND .EndColumn = 0 Then tmp = tmp + 1
	End With
	
	If tmp = 3 Then
		DeinMakro
	End If
End Sub

Sub DeinMakro()
	Msgbox "nur ein Test" 
End Sub

[quote]Wenn noch jemand es für mich ausführlicher beschreiben könnte, wäre das echt nett! ':)[/quote]

Wenn es um den Zellbereich A1 bis A20 ginge, dann z.B.:

[code]Sub Main(x)
With x.RangeAddress
tmp = 0
If .Startrow >= 0 Then tmp = tmp +1
If .EndRow <= 19 Then tmp = tmp + 1
If .StartColumn = 0 AND .EndColumn = 0 Then tmp = tmp + 1
End With

If tmp = 3 Then
DeinMakro
End If
End Sub

Sub DeinMakro()
Msgbox "nur ein Test"
End Sub[/code]

An der Stellen von "DeinMakro()" muss natürlich Dein auszuführendes Makro eingefügt werden.



Gruß
Stephan

Sub Main(x)
Msgbox x.RangeAddress.dbg_properties
End Sub

[quote]Wenn es ein einfache Möglichkeit gebt, bitte teilen Sie mit mir Ihr Wissen.[/quote]
habe ich doch längst getan. Im beiliegenden Makro:

[code]Sub Main(x)
Msgbox x.RangeAddress.dbg_properties
End Sub[/code]

gibt die Messagebox die nötigen Infos aus, und es ist nur nötig nun im Einzelnen zu vergleichen mit den gewünschten Zellen, da sind 5 Werte (Sheet, StartRow, Endrow, ... und die müssen mit den Erwartungswerten verglichen, der gewüschten Zellen, verglichen werden.

Ich habe aktuell keine Zeit, [u]vielleicht schreibt jemand Anderes einen Codeschnipsel hin[/u], ansonsten siehe:
http://de.openoffice.info/viewtopic.php?f=18&t=1553

Gruß
Stephan

Sub Main(x)
Msgbox x.RangeAddress.dbg_properties
End Sub

[quote]Wenn ich nun einer dieser Zellen ändere soll ein anderes Makro starten.[/quote]

Rechtsklick auf Tabellenreiter, dort "Tabellenereignisse und das Makro dem Ereignis "Inhalt geändert" zuordnen.

Wenn es wichtig ist das das Makro nur arbeitet wenn in bestimmten Zellen Änderungen erfolgen [1], müßte die auslösende Zelle ermittelt und ausgewertet werden, im Sinne:

[code]Sub Main(x)
Msgbox x.RangeAddress.dbg_properties
End Sub[/code]


[1]
ich habe Dein Anliegen schon verstanden, meine Aussage bezieht sich hier nur darauf das Du zwar willst das das Makro nur läuft wenn bestimmte Zellen geändert wurden, was aber nicht zwingend heißen muss das Makro darf in anderen Fällen nicht laufen, es kommt dabei darauf an was das Makro tut - natürlich ist es quasi immer besser das Makro nur abzuarbeiten wenn es sein muß, im Konkreten könnte es höchstens leichter sein darauf zu verzichten weil Du Dich dann nicht mit dem Vergleich der auslösenden Zelle befassen musst (wobei das ja nun auch nicht sooo kompliziert ist)


Gruß
Stephan