Startseite

Formate in Abhängigkeit vom Zellinhalt

Im Abschnitt über die Bedingte Formatierung habe ich beschrieben, wie man Zellen automatisch in Abhängigkeit vom Inhalt formatieren kann. Fast täglich wird in irgendeinem Forum danach gefragt, ob es nicht möglich ist, mehr als drei Formatierungen zu erzeugen.
Um es kurz zu machen, in den alten Excelversionen (bis Excel 2003), geht das nur mit VBA. Einen Beispielquelltext habe ich unten abgebildet.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then                                   ' Wenn Fokus auf Spalte A dann ...
    Select Case Cells(Target.Row, 1)                        ' ... selektierte Zelle prüfen ob Inhalt ...
        Case Is = "Meier"                                   ' gleich "Meier", dann ...
            Cells(Target.Row, 1).Interior.ColorIndex = 3    ' Hintergrundfarbe rot
        Case Is = "Müller"                                  ' gleich "Müller", dann ...
            Cells(Target.Row, 1).Interior.ColorIndex = 6    ' Hintergrundfarbe gelb
' hier können weitere Zuweisungen folgen
    End Select                                              ' Ende Anweisung
End If
End Sub
Dieses Makro wird nicht in einem Standardmodul abgelegt sondern im Modul des Tabellenblattes. Das kann man unter anderen mit einem Rechtsklick auf den Tabellenreiter öffen.