Spalten ausblenden

Forumthread: Spalten ausblenden
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten ausblenden

Spalten ausblenden

24.04.2008 23:29:30

Gisela

Hallo,
ich habe in F3 bis GG3 jeweils ein Datum stehen. In A2 steht das heutige Datum.
Beim öffnen möchte ich, dass alle Spalten die in der Zeile drei ein Datum jünger des heutigen Datums enthalten, ausgeblendet werden.
Kann mir da bitte jemand weiterhelfen. Meine "Recorder-Kenntnisse" reichen dafür leider nicht aus.
Vielen Dank und liebe Grüße
Gisela

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten ausblenden

24.04.2008 23:47:00

Peter
AW: Spalten ausblenden

25.04.2008 00:17:54

Gisela

AW: Spalten ausblenden

24.04.2008 23:47:00

Peter

Hallo Gisela,
das sollte so gehen: Das Makro gehört in DieseArbeitsmappe

Option Explicit
Private Sub Workbook_Open()
Dim iSpalte  As Integer
   Application.ScreenUpdating = False
   With Worksheets("Tabelle1")  ' <== den Tabellenblattnamen ggf. anpassen !!!
      .Columns("F:GG").EntireColumn.Hidden = False
      For iSpalte = 6 To 189    ' das ist Spalte F - GG
         If CDate(.Cells(3, iSpalte).Value) < CDate(.Cells(2, 1).Value) Then
            .Columns(iSpalte).EntireColumn.Hidden = True
         End If
      Next iSpalte
   End With
   Application.ScreenUpdating = True
End Sub