OpenOffice.info

Prima, die simple Fehlerbehandlung genügt mir schon. Danke, Stephan.
Vielen Dank aber auch für deine Antwort, Karolus.

Function aendere_namen(event)
cell = event
address = cell.CellAddress
r = address.Row
c = address.Column
If (c = 1) And (r = 0) Then  '# Zelle B1'
	cell.Spreadsheet.Name = cell.String
End if
End Function

Hallo


Nimm das hier:
[code]Function aendere_namen(event)
cell = event
address = cell.CellAddress
r = address.Row
c = address.Column
If (c = 1) And (r = 0) Then '# Zelle B1'
cell.Spreadsheet.Name = cell.String
End if
End Function[/code]

und binde das ans Ereignis `Inhalt geändert` des Tabellenblatts ( →→Rechtsklick Tabreiter→Ereignisse … )

Function AENDERE_BLATTNAME(x)
On Error Resume Next
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("B1").String
End Function

[quote]Nur jedesmal, wenn ich das gesamte Dokument schließe und erneut öffne, kommt die Fehlermeldung "Objektvariable nicht belegt." [/quote]

Das dürfte daran liegen das das ThisComponent-Objekt noch nicht voll verfügbar ist wenn beim Öffnen die Funktion aufgerufen wird.

[quote]Wie kann ich das beheben?
[/quote]
Da ich annehme das Änderungen des Blattnamens nur bei geöffneter Datei stattfinden müssen [color=#FF0000][1][/color], sollte es genügen eine Fehlerbehandlung hinzuzufügen:

[code]Function AENDERE_BLATTNAME(x)
On Error Resume Next
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("B1").String
End Function
[/code]

[size=85][color=#FF0000][1][/color]
es bestünde ja auch grundsätzlich die Möglichkeit das XML der Datei direkt zu bearbeiten, dann wäre im Falle des späteren Öffnens der Datei u.U: der Zellwert der Zelle mit der benutzerdefinierten Funktion nicht aktuell wenn dieser nicht direkt beim Öfffnen aktualisiert würde. Diese Möglichkeit dürfte aber in 99% der Praxisfälle akedemischer Natur sein.
[/size]

Gruß
Stephan

Function AENDERE_BLATTNAME(x)
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("B1").String
End Function

=AENDERE_BLATTNAME(A2)

Hallo, ich habe folgende Makro-Funktion zum Ändern des Tabellenblattnamens erstellt:

[code]Function AENDERE_BLATTNAME(x)
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("B1").String
End Function[/code].

Nun schreibe ich bspw. in Zelle A1 die Formel [code]=AENDERE_BLATTNAME(A2)[/code],
sodass der Blattname immer dann aktualisiert wird, wenn sich der Wert in A2 ändert.
Das funktioniert auch wunderbar. Nur jedesmal, wenn ich das gesamte Dokument schließe und erneut öffne, kommt die Fehlermeldung "Objektvariable nicht belegt." Wie kann ich das beheben?

Danke