Thema Datum  Von Nutzer Rating
Antwort
Rot Code vereinfachen und schlanker gestalten
25.03.2019 20:18:26 Jerome
NotSolved
25.03.2019 20:43:58 AlterDresdner
NotSolved
25.03.2019 21:45:37 Jerome
NotSolved
27.03.2019 10:41:16 AlterDresdner
NotSolved
28.03.2019 21:30:14 Gast75797
NotSolved
30.03.2019 14:10:12 Steffen Spanknebel
NotSolved
30.03.2019 19:00:18 AlterDresdner
NotSolved
31.03.2019 08:57:12 woswasi
NotSolved
03.04.2019 21:34:43 Jerome
NotSolved
12.04.2019 19:29:42 Gast84746
NotSolved
13.04.2019 10:17:59 Gast12748
NotSolved
13.04.2019 18:24:33 Gast14690
NotSolved
19.04.2019 03:50:56 Gast34284
NotSolved
Blau ...
19.04.2019 13:18:57 Gast69160
NotSolved

Ansicht des Beitrags:
Von:
Jerome
Datum:
25.03.2019 20:18:26
Views:
224
Rating: Antwort:
  Ja
Thema:
Code vereinfachen und schlanker gestalten

Hallo zusammen,

ich habe ein Frage wie ich meinen Code einfach gestalten kann und vorallem komprimieren kann. Mir graut es davor wenn ich mir vorstelle ich müsste zum Schluss noch etwas anpassen. Folgende Ausgangssituation:

VBA Userform; 8 Checkboxen mit dahinter jeweils 5 Objekten (Textboxen, Kombiboxen und einer Datumsbox)

Alle Objetzte haben als default Wert bei Enabled = False (die Objekte sind also gesperrt) Und der Hintergrund ist per default in einem Grau, so dass das Feld ausgegraut erscheint.

 

Wenn dieCheckbox aktiviert wird, sollen alle dahinterliegnde Objekte entsperrt werden + Hintergrundfarbe auf weiß. Wenn der Haken wieder aus der Checkbox rausgenommen wird sollen alle Objekte wieder gesperrt werden und grau sein.

 

Ich habe das mit folgendem Code gelöst (Beispiel nur für die erste Zeile und drei Objekte):

 

If Check1 = True Then
        'Objekteentsperren
        Box1.Enabled = True
        Box1.BackColor = vbWhite
        Box2.Enabled = True
        Box2.BackColor = vbWhite
        Date1.Enabled = True
        Date1.CalendarBackColor = vbWhite
Else
        'Wenn Haken wieder bei Checkbox entfernt wird Objekte wieder sperren
        Box1.Enabled = False
        Box1.BackColor = &H8000000F

       ....usw.
End If

Ich glaube das ist viel zu Aufwendig und es gibt bestimmt deutlich elegantere Wege.

 

Ich freue mich auf euer Feedback.

 

VG Jerome


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Code vereinfachen und schlanker gestalten
25.03.2019 20:18:26 Jerome
NotSolved
25.03.2019 20:43:58 AlterDresdner
NotSolved
25.03.2019 21:45:37 Jerome
NotSolved
27.03.2019 10:41:16 AlterDresdner
NotSolved
28.03.2019 21:30:14 Gast75797
NotSolved
30.03.2019 14:10:12 Steffen Spanknebel
NotSolved
30.03.2019 19:00:18 AlterDresdner
NotSolved
31.03.2019 08:57:12 woswasi
NotSolved
03.04.2019 21:34:43 Jerome
NotSolved
12.04.2019 19:29:42 Gast84746
NotSolved
13.04.2019 10:17:59 Gast12748
NotSolved
13.04.2019 18:24:33 Gast14690
NotSolved
19.04.2019 03:50:56 Gast34284
NotSolved
Blau ...
19.04.2019 13:18:57 Gast69160
NotSolved