Hallo Leute!
Ich möchte folgenden Code
Range("D18:F37").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
durch folgenden
Range("D18:F37").HorizontalAlignment = xlLeft
abkürzen..... Aber warum geht das nicht. Bei schreiben zeigt mir keinen Fehler aber beim testen stürzt er an dieser Zeile ab.
Mit besten Dank im voraus
Jürgen