title image


Smiley Re: Auto_open() nur das erste mal aufrufen?
Hi!



Versuchs mal so:



Private Sub Workbook_Open()

Dim ws As Worksheet

On Error Resume Next

ThisWorkbook.CustomDocumentProperties.Add Name:="SchonOffen", LinkToContent:=False, _

Type:=msoPropertyTypeBoolean, Value:=True

If ThisWorkbook.CustomDocumentProperties("SchonOffen") = False Then

For Each ws In ActiveWorkbook.Worksheets

ws.Activate

Cells.EntireColumn.AutoFit

ws.Outline.ShowLevels ColumnLevels:=1 'Hide all grouped and cols

Next ws

If ActiveWorkbook.Worksheets.Count > 1 Then Sheets(2).Activate

End If

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: