With Excel1
                .Workbooks.OpenDatabase(Pfad1, CommandText:=sql)
                .Rows("1:1").Select()        /*
 
                With .Selection.Font        /*
                    .Name = "Arial Black"
                    .Size = 12
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Color = -10477568
                    .TintAndShade = 0
                End With
 
                With .Selection.Interior     /*
                    .Color = 16355230
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
 
                With .ActiveWindow
                    .SplitColumn = 0
                    .SplitRow = 1
                    .FreezePanes = True
                End With
 
                .Cells.Select()
                .Selection.Columns.AutoFit() /*
 
 
                .Visible = True
            End With

Gruss Caddy