vba code optimieren
16.11.2016 22:38:19
Fred
in meiner Mappe häufen sich langsam die vba-Anweisungen und fast für jede Aktion habe ich einen Button. Also will ich "langsam alles zusammen legen".
Ich habe hier mal 2 Codes vereint:
Sub beide_ungefiltert()
Application.ScreenUpdating = False
Worksheets("Kriterien").Range("N2:CY3").ClearContents 'enttfernt bisherige Kriterien-HeimTeam
Worksheets("Kriterien").Range("N12:CY13").ClearContents 'enttfernt bisherige Kriterien-GastTeam
Worksheets("HeimTeam").Activate
Selection.AutoFilter
' prüft ob Filterfunktionen in HeimTeam vorhanden sind, vorhandene werden entfernt
With ActiveSheet
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
End If
End With
' filtert HeimTeam
Sheets("HeimTeam").Activate
Range("A6:CL3350").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Kriterien").Range("N1:CY2"), Unique:=False
Worksheets("GastTeam").Activate
Selection.AutoFilter
' prüft ob Filterfunktionen in GastTeam vorhanden sind, vorhandene werden entfernt
With ActiveSheet
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
End If
End With
' filtert GastTeam
Sheets("GastTeam").Activate
Range("A6:CL3350").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Kriterien").Range("N11:CY12"), Unique:=False
Worksheets("Center").Activate
End Sub
Vorweg: Es läuft. Mich würde es aber nicht wundern, wenn dort einiges "überflüssig oder unrichtig" aufgebaut ist.Könnte sich jemand dies genauer anschauen und evt. eine Alternative aufzeigen?
mfg
Fred