Option Explicit
Sub Makro1()
Dim loSpalte As Long, i As Long
Dim varMonatvon As Variant, varMonatbis As Variant
Application.ScreenUpdating = False
With Worksheets("Tabelle4")
.Cells.EntireColumn.Hidden = False
loSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Column
varMonatvon = InputBox("Monat als Ganzzahl eingeben:", "Anzeigen von Monat....")
If varMonatvon = "" Then Exit Sub
If Not IsNumeric(varMonatvon) Or varMonatvon < 1 Or varMonatvon > 12 Then
MsgBox varMonatvon & " ist kein gültiger Monat."
Exit Sub
End If
varMonatbis = InputBox("Monat als Ganzzahl eingeben:", "Anzeigen bis Monat....")
If varMonatbis = "" Then Exit Sub
If Not IsNumeric(varMonatbis) Or varMonatbis < 1 Or varMonatbis > 12 Then
MsgBox varMonatbis & " ist kein gültiger Monat."
Exit Sub
End If
For i = loSpalte To 3 Step -1
If Month(.Cells(3, i)) < CLng(varMonatvon) Or Month(.Cells(3, i)) > CLng(varMonatbis) Then
.Columns(i).Hidden = True
End If
Next i
End With
Exit Sub
Application.ScreenUpdating = True
End Sub