Code vereinfachen
13.04.2015 21:22:54
Thomas
Eine Frage, kann man diese Codes vereinfachen. Habe eine Excel Datei mit ca 600 Kästchen, die sich grün verfärben, wenn man sie anhakt. Die Datei ist sehr träge geworden. Hab die Datei nicht selbst erstellt und kann sie leider auch nicht von Grund auf neu bauen.
Anbei ein Ausschnitt des Codes:
Private Sub Label333_Click()
If Me.Label333.Caption = "ü" Then
Me.Label333.BackColor = &H80000005
Me.Label333.Caption = ""
Else
Me.Label333.Caption = "ü"
Me.Label333.BackColor = &H80FF80
End If
End Sub
Private Sub Label334_Click()
If Me.Label334.Caption = "ü" Then
Me.Label334.BackColor = &H80000005
Me.Label334.Caption = ""
Else
Me.Label334.Caption = "ü"
Me.Label334.BackColor = &H80FF80
End If
End Sub
Private Sub Label335_Click()
If Me.Label335.Caption = "ü" Then
Me.Label335.BackColor = &H80000005
Me.Label335.Caption = ""
Else
Me.Label335.Caption = "ü"
Me.Label335.BackColor = &H80FF80
End If
End Sub
Private Sub Label336_Click()
If Me.Label336.Caption = "ü" Then
Me.Label336.BackColor = &H80000005
Me.Label336.Caption = ""
Else
Me.Label336.Caption = "ü"
Me.Label336.BackColor = &H80FF80
End If
End Sub
Private Sub Label337_Click()
If Me.Label337.Caption = "ü" Then
Me.Label337.BackColor = &H80000005
Me.Label337.Caption = ""
Else
Me.Label337.Caption = "ü"
Me.Label337.BackColor = &H80FF80
End If
End Sub
Private Sub Label338_Click()
If Me.Label338.Caption = "ü" Then
Me.Label338.BackColor = &H80000005
Me.Label338.Caption = ""
Else
Me.Label338.Caption = "ü"
Me.Label338.BackColor = &H80FF80
End If
End Sub
Private Sub Label339_Click()
If Me.Label339.Caption = "ü" Then
Me.Label339.BackColor = &H80000005
Me.Label339.Caption = ""
Else
Me.Label339.Caption = "ü"
Me.Label339.BackColor = &H80FF80
End If
End Sub
Private Sub Label340_Click()
If Me.Label340.Caption = "ü" Then
Me.Label340.BackColor = &H80000005
Me.Label340.Caption = ""
Else
Me.Label340.Caption = "ü"
Me.Label340.BackColor = &H80FF80
End If
End Sub
Besten Dank im Voraus.
P.S.: Das Me. und .Caption unnötig ist ist mir klar und werde ich auch wenn ich keine andere Möglichkeit finde entfernen.