title image


Smiley Re: Zellfarben anhand von Buchstaben zuordnen
Hallo Carlo!



Diesen Code in's Modul des Tabellenblattes.





Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A1:D20]) Is Nothing Then Exit Sub

'Bereich in dem die Prüfung stattfindet - anpassen

If Target.Count = 1 Then

With Target

Select Case UCase(.Value)

Case Is = "U"

.Interior.ColorIndex = 3

Case Is = "A"

.Interior.ColorIndex = 4

Case Is = "K"

.Interior.ColorIndex = 28

Case Is = "S"

.Interior.ColorIndex = 6

'Case Is ... weitere Bedingungen



Case Else

.Interior.ColorIndex = xlNone

End Select

End With

End If

End Sub



Code eingefügt mit Syntaxhighlighter 2.5





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: