Formatierung einer Zelle

03/02/2012 - 11:42 von Tom | Report spam
Hallo,

ich habe folgendes Problem.
Ich will im nachfolgenden Code in einer Zelle Farbe, Größe und Stàrke
der Buchstaben àndern.

Dies funktioniert auch mit dem nachfolgenden Code hervorragend:

With Range("H" & Ende + 1).Characters(Start:=1, Length:P).Font
.ColorIndex = 1
.Size = 14
.FontStyle = "Fett"
End With

Aber will ich jetzt innerhalb dieses Codes noch den Zeilenumbruch
eliminieren, bricht das VBA ab:

With Range("H" & Ende + 1).Characters(Start:=1, Length:P).Font
.ColorIndex = 1
.Size = 14
.FontStyle = "Fett"

.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With

Kann mir jemand sagen warum. Liegt es an dem "Font"? Wenn ja, wie muss
ich das benamsen?

Danke im Voraus

Gruß

Tom
 

Lesen sie die antworten

#1 Thomas Kühn
06/02/2012 - 08:55 | Warnen spam
Moin Tom
Aber will ich jetzt innerhalb dieses Codes noch den Zeilenumbruch
eliminieren, bricht das VBA ab:

With Range("H" & Ende + 1).Characters(Start:=1, Length:P).Font
        .ColorIndex = 1
        .Size = 14
        .FontStyle = "Fett"



End With

With Range("H" & Ende + 1)

        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
         .ReadingOrder = xlContext
         .MergeCells = False

     End With





Gruß Thomas

Ähnliche fragen