CALC: Löschen bestimmter Spalten

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: CALC: Löschen bestimmter Spalten

Re: Makro zum Löschen bestimmter Spalten

von bst » Do, 15.12.2011 08:55

Morgen,

versuche das mal so. Die Überschriften müssen in Zeile 1 (= Index 0 bei getCellByPosition) stehen.

HTH, Bernd
--

Code: Alles auswählen

Sub Main
   oSheet = ThisComponent.CurrentController.getActiveSheet()
   oCellCursor = oSheet.createCursor()
   oCellCursor.GotoEndOfUsedArea(True)
   iLastCol = oCellCursor.getRangeAddress.EndColumn
   
   oColumns=oSheet.getColumns
   arToDel = Array("P04035", "R04037", "P04040")
   for i = iLastCol to 0 Step -1
      strVal = oSheet.getCellByPosition(i,0).String
      for each varItem in arToDel
         if strVal = varItem Then
            oColumns.removeByIndex(i,1)   
            exit for
         endif
      next
   next 
End Sub

Nach oben