Re: Makro zum Löschen bestimmter Spalten
Verfasst: 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
--
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