Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Spalten automatisch einblenden
Normale Version: Spalten automatisch einblenden
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

bigrudi1966

01.11.2021, 13:10
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

01.11.2021, 13:21
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

01.11.2021, 13:36
Hallo Uwe,

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

Danke

Rudi
Clever-Excel-Forum > Office-Anwendungen > Excel > Spalten automatisch einblenden