Sub neues_satz_einfügen()
Rows("13:13").Select
Selection.Insert Shift:=xlDown
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ich habe auch mit der Maske probiert...
wenn ich benötigte Zeilen für die Maske auswähle, der Mcro erkennt es nicht...
und gibt mir absolut falsche Maske aus:
Sub Maske()
Range("A11:E722").Select
ActiveSheet.ShowDataForm
End Sub
hast du vielleicht eine Idee? ich möcht einfach ein Satz finden oder neues Satz einfügen.. und dass es noch schnell geht, und nicht 5 minuten Jeder Vorgang dauert...
Gruß
Anna
Sub neues_satz_einfügen()
On Error GoTo FEHLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Rows(13).Insert
With Selection
.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
Sub Maske()
Range("A11:E722").Select
ActiveSheet.ShowDataForm
End Sub