Spalten löchen weil Datum
14.12.2016 09:43:34
Major
habe 2 Fälle, die aber wohl so ähnlich sind, dass ich sie in einer Frage verpacke.
In der Beispieldatei ist Fall 1 = Tabellenblatt 1 und Fall 2 = Tabellenblatt 2.
https://www.herber.de/bbs/user/110024.xlsx
Tabelle 1 SOLL:
Alle Spalten kleiner heute ausblenden... das funktioniert schon.
Sheets("Tabelle 1").Select
Application.ScreenUpdating = False
For x = 10 To Cells(6, Columns.Count).End(xlToLeft).Column 'Von Spalte J bis letzte
If (Cells(6, x)) Zusätzlich möchte ich noch alle Spalten kleiner heute und älter als 31 Tage in der Vergangenheit, löschen lassen. Da muss man beachten, dass nicht ab X=10 nach dem Datum gesucht werden soll, da es ja Spalten gibt, die in dem Moment schon ausgeblendet sind. Diese müssen mitberücksichtigt werden.
Tabelle 2 SOLL:
Alle Spalten kleiner heute löschen.
Ist das dann einfach statt hidden = delete?
Danke euch!
Gruss Major
Anzeige