title image


Smiley bedingte Formatierung
hallo,



hab aus dem forum folgenden code:



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



kann ich statt der fixen vorgabe "A" auch einen teilstring angeben?



also quasi alles was mit "Ab..." beginnt? mit "AB*" funktionierts nicht.



schön wär auch wenn man zahlen-buchstaben-kombinationen unterscheiden könnte

also 0b0 bis 0b100 0b101-0b1500

bzw. 1b0 bis 1500b0



will ich zuviel?



viele grüsse und schon mal danke

Saskia

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: