Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA zur Formatierung

VBA zur Formatierung
17.08.2016 10:45:18
Max
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA zur Formatierung
17.08.2016 11:11:42
Werner
Hallo Max,
ich habe den Code mal etwas eingekürzt und die ganzen Selects rausgeschmissen. Zudem noch am Anfang die Bildschirmaktualisierung aus und am Ende wieder eingeschaltet. Weiterhin noch die automatische Berechnung am Anfang aus und am Ende wieder eingeschaltet.
Konnte aber nicht testen.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("V18:V2071").Copy
Range("W18:AG2071").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("X18:AG18").AutoFill Destination:=Range("X18:AG2071"), Type:=xlFillValues
With Range("AA19:AB2071")
.Style = "Comma"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Range("AC19:AD2071")
.Style = "Percent"
.NumberFormat = "0.0%"
.NumberFormat = "0.00%" 'du weist unterschiedliche Zahlenformate zu
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Columns("V:V")
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
'## auskommentiert weil gleich wie Block oberhalb ##
'## nur oben Zeilenumbruch nein und hier Zeilenumbruch ja ##
'## keine Ahnung ob du das so brauchst ##
'With Columns("V:V")
'.WrapText = True
'.Orientation = 0
'.AddIndent = False
'.IndentLevel = 0
'.ShrinkToFit = False
'.ReadingOrder = xlContext
'End With
With Columns("W:W").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Range("X19").Select
Gruß Werner
Anzeige
AW: VBA zur Formatierung
17.08.2016 12:11:09
Max
Hallo Werner,
genial! Funktioniert super!
Vielen vielen Dank!
Beste Grüße
Max
AW: Gerne u. Danke für die Rückmeldung. o.w.T
17.08.2016 12:14:03
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige