zwei Makro zusammenfassen
22.09.2017 07:06:04
Gisela
ich benötige mal wieder eure Hilfe.
Die beiden Makro (sind aus dem Forum) funktionieren und laufen hintereinander ab.
Kann mir bitte jemand helfen, die beiden Abläufe in einem Makro zusammenzufassen?
Sub ohnenachruecker()
Application.ScreenUpdating = False
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4, Criteria1:= _
"Nachrücker"
Rows("07:130").Select
Selection.Delete Shift:=xlUp
Range("AO3").Select
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4
Range("AN2").Select
Call ohneeingeladen
Application.ScreenUpdating = True
End Sub
Sub ohneeingeladen()
Application.ScreenUpdating = False
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4, Criteria1:= _
"eingeladen"
Rows("07:130").Select
Selection.Delete Shift:=xlUp
Range("AO3").Select
ActiveSheet.Range("$AK$6:$AN$130").AutoFilter Field:=4
Range("AN2").Select
Application.ScreenUpdating = True
End Sub
Gisela
Anzeige