Macro_Satz einfügenist zu langsam
07.06.2004 16:41:40
Anna
es ist mir noch was unklar... Das Macro hier für Satz einfügen funktioniert ebenfalls gar nicht schnell... überhaupt nicht schnell :)
Ist hier vielleicht irgendwas falsch?
Sub neues_satz_einfügen_home()
On Error GoTo FEHLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Rows(13).Insert
With Selection
'.RowHeight = 18
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
FEHLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub