Spalten einblenden
Heinz
Habe unteres Makro,das mir in den Sheets in AK3 das Datum von heute einträgt.
Das funkt. auch.
Weiters möchte ich, wenn "Workbook open", das alle ausgeblendeten Spalten wieder eingeblendet werden.
Das funkt. leider nicht.
Könnte mir dazu bitte jemand weiterhelfen ?
Danke & Gruß
Heinz
Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("1").Range("AK3").FormulaR1C1 = "=TODAY()"
Columns("B:AG").Select
Selection.EntireColumn.Hidden = False
Sheets("2").Range("AK3").FormulaR1C1 = "=TODAY()"
Columns("B:AG").Select
Selection.EntireColumn.Hidden = False
Sheets("3").Range("AK3").FormulaR1C1 = "=TODAY()"
Columns("B:AG").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Anzeige