Option Explicit
Sub SpaltenAusblenden()
Dim i As Integer
Dim UsedColumns As Integer
Dim MonatVon As Date
Dim MonatBis As Date
Dim Bereich As Range
MonatVon = InputBox("Bitte Datumsbreich eingeben. Von:")
MonatBis = InputBox("Bis:")
i = 3
Set Bereich = ActiveSheet.Range("C" & MonatVon, ":NC" & MonatBis)
UsedColumns = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
Do
If ActiveSheet.Cells(2, i).Value = Bereich Then
ActiveSheet.Columns(i).EntireColumn.Hidden = False
Else
ActiveSheet.Columns(i).EntireColumn.Hidden = True
End If
i = i + 1
Loop Until i > UsedColumns
End Sub