title image


Smiley Funktioniert!
So, es funktioniert

Vielen Dank!





Sub Auto_Open()



On Error Resume Next

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

Type:=msoPropertyTypeBoolean, Value:=False



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



If ActiveWorkbook.Worksheets.Count > 1 Then

Dim ws As Worksheet



For Each ws In ActiveWorkbook.Worksheets

ws.Activate

Cells.EntireColumn.AutoFit

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

Next ws



Sheets(2).Activate



ThisWorkbook.CustomDocumentProperties("Formatted") = True

End If



End If



Gruss Joker



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: