VBA code - multiple if statements - color coded drop down

Moderator: ModerationP

VBA code - multiple if statements - color coded drop down

Beitragvon 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
excellina
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 10
Registriert: 18. Dez 2016, 22:59

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

Beitragvon 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
Mullit_Gast
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast