mehrer Spalten löschen, die nich zusammenhängen

[bronstein]

Wie kann ich mehrere Spalten löschen. Habe was gefunden wo ich eine Spalte löschen kann:

Code: Alles auswählen

dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "ToPoint" 
  args1(0).Value = "$A:$A" 'Spalte markieren 
  dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array()) 'Spalte löschen 

Möchte jetzt aber auch noch die Spalte C und E löschen. Wie mache ich das am besten

[kannenklaus]

hallo bronstein,

Möchte jetzt aber auch noch die Spalte C und E löschen

hier der code (beachte aber, dass sich beim löschen von spalten c zu d wird usw.):

Code: Alles auswählen

Sub SpaltenLoeschen
Dim oDoc as Object, aktBlatt as Object
Dim oSpalte as Object, oSpalten as Object
oDoc = ThisComponent
aktBlatt=oDoc.getCurrentController.activeSheet
oSpalten=aktBlatt.getColumns
oSpalten.RemoveByIndex(2,1) '1 Spalte bei C löschen
oSpalten.removeByIndex(3,1) '1 Spalte bei E löschen muss verringert werden, da vorh. gelöscht wird

end sub

grüße klaus

[Karolus]

Hallo
Wenns die ungeraden Spalten A, C und E sein sollen,dann :

Code: Alles auswählen

Sub ACEloeschen
odoc = thisComponent
mysheet=odoc.currentcontroller.activesheet
for z = 0 to 2  ' löscht Spalte A, C und E
mycolumns=mysheet.getcolumns
  mycolumns.removebyindex(z,1)
  next z
End Sub

Gruß Karo