Liebe Spezialisten,
leider bin ich mit vbas noch nicht so affin, weshalb ich folgendes aufgezeichnet habe. Es funktioniert einwandfrei, dauert nur etwas und lässt den Bildschirm zudem etwas hin und her blitzen/wackeln.
Hat jemand eine schönere bzw. vereinfachte Version.
Vielen Dank schonmal und Grüße
VBA:
Range("V18:V2071").Select
Selection.Copy
Range("W18:AG2071").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("X18:AG18").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("X18:AG2071"), Type:=xlFillValues
Range("AA19:AB2071").Select
Selection.Style = "Comma"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("AC19:AD2071").Select
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0.00%"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("V:V").Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
With Selection
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Columns("W:W").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("X19").Select