Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code vereinfachen

Code vereinfachen
13.04.2015 21:22:54
Thomas
Guten Abend!
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code vereinfachen
13.04.2015 21:47:33
Nepumuk
Hallo,
600 Kästchen wo, auf einem UserForm oder in einer Tabelle?
Gruß
Nepumuk

AW: Code vereinfachen
15.04.2015 07:57:10
Thomas
Die Kästchen befinden sich in der Tabelle.
LG

AW: Code vereinfachen
15.04.2015 08:01:45
Thomas
Das ist die Lösung. Besten Dank.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige