..aber als weitere Bedingung soll noch der letzte Eintrag sichtbar bleiben.
Sub spalten_ausblenden() Dim spalte As Long Dim lspalte As Long 'letzte beschriebene Spalte wird ermittelt lspalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column 'Datum in Zeile 2 der Spalte mit aktuellem Datum vergleichen und ggf. ausblenden For spalte = 11 To lspalte - 1 If Cells(2, spalte).Value < Date Then ActiveSheet.Columns(spalte).EntireColumn.Hidden = True Next spalte End Sub
Sub Ausblenden() Dim rngZelle As Range Set rngZelle = Rows(2).Find(Date, lookat:=xlWhole) If Not rngZelle Is Nothing Then Set rngZelle = Range("K1:" & rngZelle.Offset(0, -1).Address) rngZelle.EntireColumn.Hidden = True End If End Sub
58.4k Fragen
249k Antworten
7k Nutzer