Per Macro ausgeblendete Spalten löschen

[1.ray]

Hallo,

Wie kann man per Macro ausgeblendete Zeilen und Spalten löschen?

Vielen Dank im Voraus
1.ray

[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

[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