in der Zeile2 (B2:NC2) stehen die 366 Tage für das Jahr 2016.
Ich suche nach einem Makro, dass mir alle Spalten mit Samstagen und Sonntagen ausblendet.
Für eine Hilfestellung danke ich jetzt schon.
Markus
=Wenn(Wochentag(B2;2)>5;1;"""")
2. Blende im Makro aus mitrows(2).specialcells(xlcelltypeformulas, 1).entirecolumn.hidden =True
Gruß Daniel
Sub SaSo()
Dim i As Long, x As Long
x = Cells(2, Columns.Count).End(xlToLeft).Column
For i = x To 2 Step -1
If Weekday(Cells(2, i), 2) > 5 Then
Columns(i).Hidden = True
End If
Next
End Sub
Sub SaSoSpaltenAusblenden()
Dim lCol As Long
If Not IsDate(Cells(2, 2)) Then
MsgBox "Kein Datum in B2 der aktiven Tabelle!", vbCritical, "Abbruch)"
Exit Sub
End If
lCol = Cells(2, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For lCol = lCol To 2 Step -1
Columns(lCol).EntireColumn.Hidden = Weekday(Cells(2, lCol), 2) > 5
Next
Application.ScreenUpdating = True
End Sub
Gruess Hansueli