VBA code - multiple if statements - color coded drop down

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: VBA code - multiple if statements - color coded drop down

Re: VBA code - multiple if statements - color coded drop dow

Beitrag von Mullit_Gast » 12. Nov 2020, 13:49

Hallo,

die Antwort steht schon im Code :wink: , füg an Stelle der If-Anw. einfach noch eine Sel-Case Falluntersch. ein und frag die nach ContentControl.Title ab... 8-)

Gruß, Mullit

VBA code - multiple if statements - color coded drop down

Beitrag von excellina » 12. Nov 2020, 10:37

Hallo an Alle

Ich würde gerne diesen code (gefunden im inet) für mehrer drop down felder nutzen. Ich habe nebst dem drop down "Status" 7 weitere drop down felder, jeweils mit anderen color coding.
Frage: Wie kann ich im unten stehenden code weitere if statements einfügen für weitere drop downs. Vielen Dank.

Code: Alles auswählen
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Nach oben