title image


Smiley Ja, ist möglich!
Hi,



probiere es mal so, die Anpassungen auf 10 Bedingungen sollten jetzt kein Problem sein.









Private Sub Worksheet_Change(ByVal Target As Range)

'Kommt in das Tabellenblatt

'Es wird zwischen Groß- und Kleinschreibung unterschieden

'Bitte den Bereich auf deine Bedürfnisse anpassen!

If Not Intersect(Target,[A1:A10]) Is Nothing Then

  With Target

    Select Case Target.Value

      Case "A"

        Target.Interior.ColorIndex = 3

      Case "a"

        Target.Interior.ColorIndex = 6

      Case "B"

        Target.Interior.ColorIndex = 9

      Case "b"

        Target.Interior.ColorIndex = 12

      Case "C"

        Target.Interior.ColorIndex = 16

      Case "c"

        Target.Interior.ColorIndex = 17

      Case Else

        Target.Interior.ColorIndex = xlNone

      End Select

  End With

End If

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: