Code bisschen "Verschönern"

Forumthread: Code bisschen "Verschönern"

27.11.2018 11:15:05

Anna

Hallo Leute :)
Ich hab hier mal ein Code aufgenommen und selber verbessert und lange bneutzt. Nur die Reports werden immer träge je länger es ist. Kann man meinen Code noch irgendwie verkleinern, sodass es schneller läuft? Bin für jede Hilfe Dankbar.

Sub Report_Formatieren()
'1. Spalten werden gelöscht
Range("A:C,P:W").Delete Shift:=xlToLeft
'2. Umbennenen
Range("E1").FormulaR1C1 = "Suchbegriff"
Range("H1").FormulaR1C1 = "CTR"
Range("I1").FormulaR1C1 = "CPC"
Range("K1").FormulaR1C1 = "Umsatz"
Range("L1").FormulaR1C1 = "ACoS"
'3. In % Umwandeln
Range("H:H,L:L").NumberFormat = "0.00%"
'4. Fenster fixieren
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
'5. Farbe
Rows("1:1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
'6. Höhe der ersten Zeile
Selection.RowHeight = 27.75
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'7. Zentrieren
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'8. Fett
Selection.Font.Bold = True
'9. Autofilter
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("L:L").EntireColumn.AutoFit
Selection.AutoFilter
Range("B1").Select
'10. Spalten mit Autofilter löschen
Columns("M:W").Delete Shift:=xlToLeft
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code bisschen "Verschönern"

27.11.2018 11:37:01

UweD
AW: Code bisschen "Verschönern"

27.11.2018 11:43:33

Anna
Danke für die Rückmeldung owT

27.11.2018 11:50:59

UweD

AW: Code bisschen "Verschönern"

27.11.2018 11:37:01

UweD

Hallo
so?

Sub Report_Formatieren()

   
    'Bildschirmzappeln verhindern 
    Application.ScreenUpdating = False
    
    '1. Spalten werden gelöscht 
    Range("A:C,P:W").Delete Shift:=xlToLeft
    
    '2. Umbennenen 
    Range("E1") = "Suchbegriff"
    Range("H1") = "CTR"
    Range("I1") = "CPC"
    Range("K1") = "Umsatz"
    Range("L1") = "ACoS"
    
    '3. In % Umwandeln 
    Range("H:H,L:L").NumberFormat = "0.00%"

    '4. Fenster fixieren 
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
     End With
   
    '5. Farbe 
    With Rows("1:1")
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399975585192419
            .PatternTintAndShade = 0
        End With
        
        '6. Höhe der ersten Zeile 
        .RowHeight = 27.75
        
        '7. Zentrieren 
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        
        '8. Fett 
        .Font.Bold = True
        
        '9. Autofilter 
        Columns("A:L").EntireColumn.AutoFit
        .AutoFilter
        Range("B1").Select
    
        '10. Spalten mit Autofilter löschen 
    End With
    
    Columns("M:W").Delete Shift:=xlToLeft
    
End Sub

LG UweD

AW: Code bisschen "Verschönern"

27.11.2018 11:43:33

Anna

Ja Genau Danke, ist viel besser so!

Danke für die Rückmeldung owT

27.11.2018 11:50:59

UweD

Beliebteste Forumthreads (12 Monate)

Forumthread: Code bisschen "Verschönern"

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread