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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen