zelle soll auf Inhalt reagieren

[fanste]

Hi,

ich bin gerade dabei, ein Makro zu schreiben, welches mir eine Tabelle erstellt. Nun soll in den Spalten eine Funktion eingefügt werden, die auf den Inhalt reagiert und dementsprechend die Hintergrundfarbe ändert. Ich weiß aber nicht, wie ich eine solche Funktion auf eine Zelle gelegt bekomme und wie sie ausehen muss.


Ich hoffe ihr könnt mir da weiterhelfen

 

[Norbert Eder]

Würde hier eine einfache Formel nicht ausreichen?

 

[fanste]

Es kommt darauf an, wie leicht diese Formel zu bedienen ist. Ich schreibe das Ganze nämliche für jemanden, der so gut wie keine Ahnung von Excel hat. Darum wäre es ganz praktisch, wenn das so ginge.

EDIT:
Hab gerade nochmal gesucht und etwas gefunden.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Colors() As Variant
    Colors = Array(46, 6, 43, 33, 8)
    Dim c As Range

    For Each c In Target
        c.Interior.ColorIndex = Colors(c)
    Next c
End Sub

Das funktioniert auch bestens. Jetzt brauch ich nur noch 2 Kleinigkeiten:
- Der Inhalt der Spalten ist immer eine Abwandlung von "Gruppe 1" bis "Gruppe 5". Wie kann ich da die Zahl am Ende auslesen?
Wie kann ich prüfen, ob es auch wirklich eine Zahl ist und nicht ausversehen ein ! (Gruppe !)?
- Kann ich die ganze Geschichte nur auf die Spalten C, F und I beschränken?

Viele Fragen mit hoffentlich kurzen Antworten