Spalten automatisch einblenden

[bigrudi1966]

Hallo zusammen,

folgenden Code habe ich hinterlegt, der beim Aktivieren eines Tabellenblatts ausgeführt wird:

Code:

Sub Spalten_ausblenden()
     On Error Resume Next
     'Spalten D:AG ausblenden
     Columns("D:AG").EntireColumn.Hidden = True
     For j = 7 To 30
        'heutiges Fatum wieder einblenden
        If CLng(Cells(1, j)) = CLng(Date) Then _
           Columns(j).EntireColumn.Hidden = False
        If Err > 0 Then MsgBox "Ungültige Datum in Spalte " & j: Err.Clear
     Next j
End Sub

In der entsprechenden Tabelle befinden sich jeweils rechts von der Spalte mit dem Datum noch 2 weitere Spalten in denen eine Berechnung durchgeführt wird. Ist es möglich, den Code so anzupassen, dass einmal die Spalte mit dem aktuellen Datum und die beiden Zeilen Rechts daneben eingeblendet werden?

VG
Rudi

[Kuwer]

Hallo Rudi,

Code:

Sub Spalten_ausblenden()
    Dim j As Long
    On Error Resume Next
    For j = 7 To 30 Step 3
       Columns(j).Resize(, 3).Hidden = CLng(Cells(1, j)) <> CLng(Date)
       If Err > 0 Then
           MsgBox "Ungültige Datum in Spalte " & j
           Err.Clear
       End If
    Next j
End Sub

Gruß Uwe

[bigrudi1966]

Hallo Uwe,

mir fehlen die Worte. Passt wie die Faust aufs Auge.

Danke

Rudi