Mehrere Bereiche zum Löschen per Makro in Calc auswählen

[LidiaS]

Guten Morgen Allerseits,

ich möchte den Zellinhalt in mehreren (nicht zusammen hängenden) Bereichen per Makro löschen.

Herr Dannenhöfer sagt:

Man kann auch gleichzeitig mehrere Bereiche auswählen. Dann müssen diese nur mit Komma getrennt eingegeben werden.
getCellRangeByName("A1:B5","C4:D9") ergibt dann den Bereich A1:B5 und C4:D9

Wenn ich dies mache,

Code: Alles auswählen

	myDocument = thisComponent
	mySheet=thiscomponent.getcurrentcontroller.activesheet
	myCell = mySheet.getCellRangeByName("B2:B4","B7:B37","C40:C41")
	inK= com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.VALUE
	myCell.clearContents( inK )

dann löscht er mir den Bereich B2:B4 aber nicht die darauf folgenden. Was mache ich falsch? Ist das Anspechen mehrerer Bereiche zum Löschen nicht möglich?

Wäre für Hilfe sehr dankbar.

Lieben Dank und einen guten Start in die Woche
Lidia

[komma4]

Man kann auch gleichzeitig mehrere Bereiche auswählen.

Vielleicht ging das mal.
Mit meiner aktuellen Installation (AOO 4.1.1) zeigt mir MRI den gewählten Bereich

Code: Alles auswählen

   myCell = mySheet.getCellRangeByName("B2:B4","B7:B37","C40:C41")
   MRI mycell

an:

Code: Alles auswählen

AbsoluteName: $Tabelle1.$B$2:$B$4

Du machst also nichts falsch.

Erzeuge eine Funktion zum Löschen eines Bereichs und rufe sie mit den drei Angaben dreimal auf.

[TrueColor]

Huhu,

Herr Dannenhöfer sagt:

Man kann auch gleichzeitig mehrere Bereiche auswählen. Dann müssen diese nur mit Komma getrennt eingegeben werden.
getCellRangeByName("A1:B5","C4:D9") ergibt dann den Bereich A1:B5 und C4:D9

Hatten wir letztens schon mal. Schau mal hier: viewtopic.php?f=18&t=65796
Da ist auch ein Bsp., wie du's per Schleife lösen kannst.

[LidiaS]

Hallo Allerseits,

vielen Dank an komma4 und TrueColor für die Antworten und die Hinweise. Wie gewohnt wird einem im OOForum schnell und kompetent geholfen .

Viele Grüße
Lidia

[LidiaS]

Hallo nochmals Allerseits,

ich stelle mal meine Lösung des o.g. Problems rein. Vielleicht ist diese für den einen oder anderen Anfänger (bin ja selber einer ) hilfreich.

Grundlage ist TrueColors Hinweis:

Hatten wir letztens schon mal. Schau mal hier: viewtopic.php?f=18&t=65796
Da ist auch ein Bsp., wie du's per Schleife lösen kannst.

Ich habe zwei Varianten erstellt, wobei ich Variante I verwenden werde:

Variante I (Grundlage Code von clag):

Code: Alles auswählen

   myDocument = ThisComponent
   mySheet = ThisComponent.getcurrentcontroller.activesheet
   myCells = Array("B2:B4","B7:B37","C40:C41","C43:I62","C65:C75")
   for i=0 to 4
   inK = 5
   'Alternativ: inK= com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.VALUE
   mySheet.getCellRangeByName(myCells(i)).clearContents(inK)
      
   next

Variante II (Grundlage Code von F3K Total):

Code: Alles auswählen

    myDocument = thisComponent
    mySheet=thiscomponent.getcurrentcontroller.activesheet
    myR1= mySheet.getCellRangeByName("B2:B4").RangeAddress
    myR2= mySheet.getCellRangeByName("B7:B37").RangeAddress
    myR3= mySheet.getCellRangeByName("C40:C41").RangeAddress
    myR4= mySheet.getCellRangeByName("C43:I62").RangeAddress
    myR5= mySheet.getCellRangeByName("C65:C75").RangeAddress
    mycellranges = thiscomponent.createInstance("com.sun.star.sheet.SheetCellRanges")
    mycellranges.addRangeAddress(myR1,true)
    mycellranges.addRangeAddress(myR2,true)
    mycellranges.addRangeAddress(myR3,true)
    mycellranges.addRangeAddress(myR4,true)
    mycellranges.addRangeAddress(myR5,true)
    inK = 5
 	mycellranges.clearContents(inK)

Es geht sicherlich immer besser. Aber es funktioniert und die Variante I ist schön kurz .

Nochmal vielen Dank für das "auf den Weg bringen".

Viele Grüße
Lidia

[Karolus]

Code: Alles auswählen

doc = thisComponent
sheet = doc.CurrentController.ActiveSheet
...
for each rangename in mycells
    sheet.getCellRangeByName( rangename).clearContents( 5 )
next
...

Variante 2

Code: Alles auswählen

cellranges = doc.createInstance("com.sun.star.sheet.SheetCellRanges")
...
for each rangename in mycells
    cellranges.addRangeAddress(sheet.getCellRangeByName( rangename).RangeAddress, True)
next
...

Lasst doch mal dieses bescheuerte prefix my weg, wenn das an jeden Objectnamen drangeklebt wird verlierts doch auch jegliche semantische Bedeutung

[LidiaS]

Hallo Karolus,

zu Variante I: So?

Code: Alles auswählen

doc = thisComponent
sheet = doc.CurrentController.ActiveSheet
Cells = Array("B2:B4","B7:B37","C40:C41","C43:I62","C65:C75")
for each i in Cells
sheet.getCellRangeByName( i ).clearContents( 5 )
next

Bei Variante II komme ich nicht weiter. Kannst Du bitte den ganzen Code schreiben, damit ich was lerne. Ich glaube mein Ansatz ist falsch. Fasst man die Zellbereiche hier auch noch mal irgendwie zusammen? Stehe auf dem Schlauch und komme nicht runter ...

Code: Alles auswählen

Doc = thisComponent
Sheet=Doc.getcurrentcontroller.activesheet
R1= Sheet.getCellRangeByName("B2:B4").RangeAddress
R2= Sheet.getCellRangeByName("B7:B37").RangeAddress
R3= Sheet.getCellRangeByName("C40:C41").RangeAddress
R4= Sheet.getCellRangeByName("C43:I62").RangeAddress
R5= Sheet.getCellRangeByName("C65:C75").RangeAddress
cellranges = Doc.createInstance("com.sun.star.sheet.SheetCellRanges")
mycells = ?????
for each rangename in mycells
cellranges.addRangeAddress(sheet.getCellRangeByName(rangename).RangeAddress,True).clearContents(5)
next rangename

Vielen Dank und Gruß
Lidia

[Karolus]

Hallo

Var I stimmt so, bis darauf das i eine furchtbare Bezeichnung ist, für etwas das keine ganzahlige Laufvariable ist

Var II

Code: Alles auswählen

doc = thisComponent
sheet = doc.CurrentController.ActiveSheet
Cells = Array("B2:B4","B7:B37","C40:C41","C43:I62","C65:C75")
cellranges = doc.createInstance("com.sun.star.sheet.SheetCellRanges")
for each rangename in Cells
    cellranges.addRangeAddress(sheet.getCellRangeByName(rangename).RangeAddress,True)
next
cellranges.clearContents(5)

Ich will dir nicht zu nahe treten, aber wenn deine Programmierkünste nicht über das copy&paste-Stadium hinausgehen, solltest du dir besser ein anderes Hobby suchen.

[LidiaS]

Hallo Karolus,

Ich habe nicht vor Programmierkünstler zu werden. Und ich würde es begrüßen, wenn Du auf eine persönliche Einschätzung meiner Fähigkeiten auf Grund von ein paar Zeilen Code, verzichten würdest. Arroganz ist ein sehr schlechter Lehrmeister.

Da hier nun ausreichend funktionierende Code-Varianten zur Verfügung stehen, sehe ich das Thema als abgeschlossen an.

Schönen Tag noch.
Lidia