Seite 1 von 1
Per Macro ausgeblendete Spalten löschen
Verfasst: Di, 05.01.2010 20:54
von 1.ray
Hallo,
Wie kann man per Macro ausgeblendete Zeilen und Spalten löschen?
Vielen Dank im Voraus
1.ray
Re: Per Macro ausgeblendete Zeilen und Spalten löschen
Verfasst: Mi, 06.01.2010 10:05
von Charly
Hallo 1.ray!
Hier ein Code-Beispiel:
Code: Alles auswählen
Sub ZeilenLoeschen()
Dok = ThisComponent
Controller = Dok.currentController
Blatt = Controller.ActiveSheet
Cursor = Blatt.createCursor()
Cursor.goToEndOfUsedArea(false)
Ende = Cursor.getRangeAddress().Endrow
For I = 0 to Ende
Zeile = Blatt.rows(I)
If not Zeile.isvisible then
Blatt.rows.removeByIndex(I,1)
I = I-1
endif
next
End Sub
Gruß
Charly
Re: Per Macro ausgeblendete Zeilen und Spalten löschen
Verfasst: Mi, 06.01.2010 16:52
von 1.ray
Sehr geehrter Herr Charly.
ich bedanke mich herzlichst für Ihre Hilfe.
Es funzt, wie man so schön lautmalerisch sagt.
Meine Hochachtung.
Hallo Charly,
ich habe nun versucht, Dein Macro umzuschreiben, um unsichtbare Spalten auszublenden,
aber ich habe da einen oder mehrere fehler im letzten Teil. Siehe weiter unten
kann ich Dich nochmal um Hilfe bitten?
Mit freundlichen Grüssen1.ray
REM ***** BASIC *****
Sub Main
End Sub
Sub kincol()
Dok = ThisComponent
Controller = Dok.currentController
Blatt = Controller.ActiveSheet
Cursor = Blatt.createCursor()
Cursor.goToEndOfUsedArea(false)
Ende = Cursor.getRangeAddress().Endcolumn
For I = 0 to Ende
Spalte = Blatt.columns(I)
If not Spalte.isvisible then
Blatt.columns.removeByIndex(I,1)
I = I-1
endif
next
End Sub
Gruss
1.ray