Aktuellen Datenbereich per Macro
10.02.2006 15:54:12
Jan Westphal
Sub NurAktMonat()
Dim i As Integer
Application.ScreenUpdating = False
For i = 3 To 50
Monat = i - 2
Cells(1, i).EntireColumn.Hidden = (Month(Date) <> Monat + 1)
Next i
Application.ScreenUpdating = True
[Z1].Value = [Z1].Value + 1
End Sub
Hat jemand einen Vorschlag ??