Format direkt angewandt (Makro)
15.04.2015 11:09:32
Mike
Hallo zusammen,
dies ist wohl ein Klacks für die Makro-Spezialisten: Wenn ich folgende Formatierung auf den Bereich A2:A400 anwende, wird die Ansicht nicht gleich angepasst, sondern ich müsste schlussendlich jeden Eintrag mit F2 bestätigen.
Das ist etwas umständlich. Wie kann ich dies noch einbauen?
'
Range("A2:A400").Select
Selection.NumberFormat = "####"".""###"".""####-0" 'besser leserlich
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'
Danke für Eure Hilfe, Gruss Mike