Formatierung geht nur bei Einzelschritt
10.08.2003 14:28:22
Rainer K.
Ich habe mir eine Datei gebastelt mit der ich Textdateien über eine Userform anwähle und einlese. Diese Textdateien werden dann entsprechend formatiert und unter einem neuen Namen abgespeichert.
Wenn in der Spalte A ein Text steht soll er fett gedruckt werden.
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ISTTEXT(A1)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Rows("1:5").Select
Selection.Insert Shift:=xlDown
Rows("1:1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Selection.Insert Shift:=xlDown
End With
Das ganze hat auch ca. 3 Wochen gut funktioniert aber nun tut es das nicht mehr.
Arbeite ich allerdings den Code in Einzelschritten ab funktioniert es wieder.
Woran kann das liegen ?
Gruß
Rainer