mehrer Spalten löschen, die nich zusammenhängen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: mehrer Spalten löschen, die nich zusammenhängen

von Karolus » So, 03.12.2006 12:28

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

von kannenklaus » So, 03.12.2006 11:09

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

mehrer Spalten löschen, die nich zusammenhängen

von bronstein » So, 03.12.2006 10:43

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

Nach oben