300 Makro-Schaltflächen sehr langsam
28.06.2017 12:57:32
Micha
ich habe 4 Makros und 4 Schaltflächen. Schaltfläche 1 = Makro 1, Schaltfläche 2 = Makro 2 ff.. Hierbei wird nur die Farbe beim Klick geändert. Funktioniert auch einwandfrei. Bspw.:
Sub Farbwechsel_Orange()
Application.ScreenUpdating = False
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
If .RGB RGB(255, 165, 0) Then 'wenn farbe nicht orange
.RGB = RGB(255, 165, 0) 'dann mach es orange
Else
.RGB = RGB(0, 0, 255) 'ansonsten mach es blau
End If
End With
Application.ScreenUpdating = True
End Sub
Jetzt habe ich die 4 Schaltflächen, die je einem Makro zugewiesen sind, 74 mal kopiert. (wird gebraucht um einen Status anzuzeigen)
In Summe sind nun 300 Schaltflächen auf dem Tabellenblatt. Die Berechnung für den einfachen Code dauert jetzt je Schaltfläche ca. 3 Sekunden und Excel lahmt dabei wie ein älterer Opi ;)..
Gibt es irgendwelche Einstellungen, die angepasst werden müssen, um die Performance zu steigern? Ich habe leider bisher keine funktionierende Lösung gefunden.
Danke für eure Hilfe.
Grüße
Micha