Sub NurAktMonat()
Dim i As Integer
For i = 4 To 15
Monat = i - 3
Cells(1, i).EntireColumn.Hidden = (Month(Date) <> Monat + 1)
Next i
End Sub
Sub AlleMonate()
Columns("d:o").Hidden = False
End Sub
Function Sichtbar(ber As Range)
Dim z As Range
For Each z In ber
If z.EntireColumn.Hidden = False Then
Sichtbar = z.Value
Exit Function
End If
Next z
'keine sichtbar:
Sichtbar = "#NV"
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen