Bedingte Formatierung
16.11.2007 13:06:18
Christoph
Mit der Bendingten Formatvorlage habe ich nur 3 Möglichkeiten.
Wolte dies jetzt mit VBA ausfüren wobei meine Kentnisse leider nicht ausreichen.
Bei euch Profis ist dass hier sicher kein Problem, aber ich stosse hier leider an meine Grenzen ;)
Hier mein derzeitiger Stand.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Select Case Target.Value
Case "A", "B", "C"
Target.Interior.ColorIndex = 15
Target.Cells.Interior.ColorIndex = 15
Target.Offset.Font.ColorIndex = 52
Target.Offset.Font.Bold = True
Target.HorizontalAlignment = xlCenter
Case Else
Target.Interior.ColorIndex = x1ColorIndexNone
End Select
End If
End Sub
Mein Problem,
bei der Ausführung in Column 5 sollte nicht nur diese Zelle sondern auch zwei Zellen links und drei rechst von 5 formatiert werden.
Vielen Dank für Eure Hilfe!!
Gruss Christoph
Anzeige