wenn ich folgendes Makro:
Sub Formeln_ergaenzen()
Application.ScreenUpdating = False
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
'Berechnung automatisch
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Sheets("GJ_neue Ma.").Select
Range("AG6:AR6").Select
Range("AG6:AR" & iRow).FillDown
Selection.AutoFilter Field:=40, Criteria1:="alle"
Selection.AutoFilter Field:=40, Criteria1:="neu"
'Berechnung manuell
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Sheets("Kontrolltabelle").Select
Application.ScreenUpdating = True
End Sub
über Butteon starte läuft es zwar, aber das Zellenausfüllen nach unten passiert nicht. Wenn ich es direkt starte funktioniert es tadellos.
Was habe ich übersehen ?
Gruß
Jutta