Per Macro ausgeblendete Spalten löschen

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: Per Macro ausgeblendete Spalten löschen

Re: Per Macro ausgeblendete Zeilen und Spalten löschen

von 1.ray » Mi, 06.01.2010 16:52

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

Re: Per Macro ausgeblendete Zeilen und Spalten löschen

von Charly » Mi, 06.01.2010 10:05

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

Per Macro ausgeblendete Spalten löschen

von 1.ray » Di, 05.01.2010 20:54

Hallo,

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

Vielen Dank im Voraus
1.ray

Nach oben