Calc: Zellbereich nach Überschrift

[Berni]

Hallo allerseits!

Ich habe die armen Menschen im Calc Forum eben ziemlich (unnötig) maltretiert. Letztendlich konnte ich in meiner Calc-Datei zwei Probleme mit Makros isolieren, die ich lösen muss. Leider habe ich kaum Erfahrung mit Makros. Ich verstehe sie jetzt, aber ändern ist eine andere Sache.

Das erste Problem ist das automatische Entschützen und Schützen von Tabellen:

Code: Alles auswählen

	ThisComponent.isUndoEnabled = False 
	oCleaningDestinationSheet.unprotect("")
	
	oDestinationCellRange.setDataArray(oSourceCellRange.getDataArray())

	oCleaningDestinationSheet.protect("")
	ThisComponent.isUndoEnabled = True 

Das protect ist das Problem. Wenn die Tabelle zuvor manuell "entschützt" wurde (um etwas zu ändern) schlägt obiges Skript zu, und schaltet den Schutz ständig wieder ein. Zum Irre werden. Ich würde das gerne so ändern, dass das protect() nur aufgerufen wird, wenn vor dem unprotect() die Tabelle tatsächlich geschützt war.

Das zweite betrifft Zugriffe auf Spalten. Da gibt eines Anweisung der folgenden (oder ähnlicher) Art:

Code: Alles auswählen

	oDestinationCellRange = oCleaningDestinationSheet.getCellRangeByName("AO2:AP100")

Wenn neue Spalten eingefügt werden, gerät alles durcheinander, weil die Spaltennummer ("AO" und "AP") sich verschieben. Jede Spalte hat in der ersten Zeile aber eine Überschrift die eigentlich nie geändert wird (da sie in Serienbriefen benutzt wird). Ist es möglich statt der Spaltennummer die Überschrift in der ersten Zeile jeder Spalte zu verwenden? Wie?



Moderation,4: Betreff konkretisiert

[komma4]

Wenn die Tabelle zuvor manuell "entschützt" wurde (um etwas zu ändern) schlägt obiges Skript zu, und schaltet den Schutz ständig wieder ein. Zum Irre werden. Ich würde das gerne so ändern, dass das protect() nur aufgerufen wird, wenn vor dem unprotect() die Tabelle tatsächlich geschützt war.

In Beantwortung dieser ersten Frage:

Wie "schlägt" das Makro zu? Wie wird es aufgerufen?


Ansonsten kann man den Zustand des Blattschutzes auch abfragen:

Code: Alles auswählen

If oCleaningDestinationSheet.isProtected() Then 

Zur Vollständigkeit halber bitte bei Fragen auch immer OOo-Version und Betriebssystem angeben; Danke.

[komma4]

Das zweite betrifft Zugriffe auf Spalten. Da gibt eines Anweisung der folgenden (oder ähnlicher) Art:

Code: Alles auswählen

	oDestinationCellRange = oCleaningDestinationSheet.getCellRangeByName("AO2:AP100")

In Beantwortung dieser zweiten Frage:

versorge vor dem Einfügen weiterer Spalten den Bereich AO2 bis AP100 mit einem Einfügen>Namen>Festlegen... eindeutigen Namen (bspw.: "Hugo"), und ändere die Basicanweisung in

Code: Alles auswählen

oCleaningDestinationSheet.getCellRangeByName( "Hugo" )

[Berni]

Es sind zwei Makros, die mit protect arbeiten. Beide werden durch Listener aufgerufen, die auf die Änderung von Zellen reagieren.

Die OO Version ist 3.2.0 und das OS ist Win7.

Aha, dann müßte ich also sowas machen?

Code: Alles auswählen

	Dim sheetIsProtected As Boolean
	sheetIsProtected = oPaymentSheet.isProtected()

	If (sheetIsProtected) Then
		oPaymentSheet.Unprotect("")
	End If

	REM ..... diverse zugriffe .....

	If (sheetIsProtected) Then
		oPaymentSheet.Protect("")
	End If

[Berni]

versorge vor dem Einfügen weiterer Spalten den Bereich AO2 bis AP100 mit einem Einfügen>Namen>Festlegen... eindeutigen Namen (bspw.: "Hugo"), und ändere die Basicanweisung in

Code: Alles auswählen

oCleaningDestinationSheet.getCellRangeByName( "Hugo" )

Ok, das kannte ich noch nicht. Klingt nach einer guten Lösung. Ich werde es probieren.

Die Überschrift verwenden geht nicht? Oder ist arg kompliziert?

[DPunch]

Aloha

Die Überschrift verwenden geht nicht? Oder ist arg kompliziert?

Doch, geht natürlich auch und ist prinzipiell auch nicht kompliziert.

Siehe auch StarBasic FAQ: Wie kann man in Arbeitsblättern suchen?.