Supportnet / Forum / Tabellenkalkulation

Hallo Ihr Lieben, ich brauche etwas Hilfe. Ich benötige mehr als 3 bed. Formatierungen. Ich hab auch schon Code dazu gefunden, mir fehlen jetzt nur ein paar Randbedingungen die ich mit der "normalen" Bedingten Formatierung kein Problem waren. Bis jetzt hab ich folgendes: [code] Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim Bereich As Range Dim rngZelle As Range Set Bereich = ActiveSheet.Range("1:1") For Each rngZelle In Bereich Select Case rngZelle Case "1" rngZelle.Interior.Color = RGB(255, 0, 0) Case "2" rngZelle.Interior.Color = RGB(0, 255, 0) Case "3" rngZelle.Interior.Color = RGB(0, 0, 255) Case "4" rngZelle.Interior.Color = RGB(255, 255, 0) Case "5" rngZelle.Interior.Color = RGB(0, 255, 255) Case "test" rngZelle.Interior.Color = RGB(0, 255, 255) Case Else rngZelle.Interior.ColorIndex = xlNone End Select Next End Sub [/code] Es wird also die 1. Zeile formatiert. Wenn ich jetzt aber darüber noch eine Zeile einfüge, geht das ja nicht mehr... wie bekomm ich sowas hin? Außerdem möchte ich dass die Zelle direkt darunter in der gleichen Farbe eingefärbt wir - steh aber irgendwie aufm Schlauch Vielen Dank für Eure Hilfe Gruß _heike_

Hi Heike,

vergib für die Zelle einen Namen, z.B. Zelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address <> Range("Zelle1").Address Then Exit Sub
    Select Case Target
        Case "1"
            Target.Interior.Color = RGB(255, 0, 0)
            Target.Offset(1, 0).Interior.Color = RGB(255, 0, 0)
        Case "2"
            Target.Interior.Color = RGB(0, 255, 0)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 0)
        Case "3"
            Target.Interior.Color = RGB(0, 0, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 0, 255)
        Case "4"
            Target.Interior.Color = RGB(255, 255, 0)
            Target.Offset(1, 0).Interior.Color = RGB(255, 255, 0)
        Case "5"
            Target.Interior.Color = RGB(0, 255, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 255)
        Case "test"
            Target.Interior.Color = RGB(0, 255, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 255)
        Case Else
            Target.Interior.ColorIndex = xlNone
            Target.Offset(1, 0).Interior.Color = xlNone
    End Select
End Sub

Bis später,
Karin

Hallo Karin,

vielen Dank für Deine Antwort.
Leider hab ich nicht verstanden, was die erste Zeile (If Target.Address <> Range("Zelle1").Address Then Exit Sub) genau macht.

Aber der Hinweis, dass ich einen Namen vergeben soll, hat schon gereicht. Statt ("1:1") hab ich jetzt einfach den Namen angegeben.
Und für die Zeile darunter einfärben hast Du genau die Lösung geliefert, die ich gebraucht habe.

Vielen Dank
und euch allen ein schönen We

Gruß
_heike_

aHallo Heike,

das ist nur der Vergleich ob die Addresse der geänderten Zelle(n) mit der Zelleadresse von Deinen benannten Zelle übereinstimmt, falls ncht Exit Sub Procedur verlassen.

Gruß Hajo

Danke für die Antwort.

Jetzt habs auch ich verstanden.
Dann bau ich das bei mir auch noch ein.

Gruß
Heike

Hilfe!!!

Ich hab etwas herumprobiert. Die Formatierung für mehrere Tabellenblätter definier, Teile von mir auskommentiert und die neue Zeile eingefügt....

Jetzt stürzt mir Excel ab.
Aber nur beim editieren des Codes für ein Tabellenblatt.

Sobald ich eine Zeile mit
Dim Bereich As Range schreibe reagiert Excel nicht mehr und ich muss es schließen.

Was hab ich falsch gemacht??

Gruß
Heike

So, ich hab gleich noch ne Frage.

Wenn ich die Variante von Karin benutze, funktioniert das ja nur, wenn ich als Bereich eine Zelle habe...

Ich brauch aber einen größeren Bereich mit ca. 20 Spalten.
Den Namen kann ich ja auch für den Bereich angeben, was muss ich dann im Code ändern?

Danke schonmal

Gruß
Heike

Hi Heike,

was du falsch gemacht hast, kannst nur du wissen, da nur du den jetzigen Code kennst.

Wie viele Zellen der mit einem Bereichsnamen festgelegte Bereich umfasst oder wie er heißt ist gleichgültig.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("MeinBereich")) Is Nothing Then Exit Sub
    Select Case Target
        Case "1"
            Target.Interior.Color = RGB(255, 0, 0)
            Target.Offset(1, 0).Interior.Color = RGB(255, 0, 0)
        Case "2"
            Target.Interior.Color = RGB(0, 255, 0)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 0)
        Case "3"
            Target.Interior.Color = RGB(0, 0, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 0, 255)
        Case "4"
            Target.Interior.Color = RGB(255, 255, 0)
            Target.Offset(1, 0).Interior.Color = RGB(255, 255, 0)
        Case "5"
            Target.Interior.Color = RGB(0, 255, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 255)
        Case "test"
            Target.Interior.Color = RGB(0, 255, 255)
            Target.Offset(1, 0).Interior.Color = RGB(0, 255, 255)
        Case Else
            Target.Interior.ColorIndex = xlNone
            Target.Offset(1, 0).Interior.Color = xlNone
    End Select
End Sub

Bis später,
Karin

Vielen Dank Karin,

ich war schonfast am Verzeifeln ;-)
Nachdem ich das Tabellenbaltt gelöscht habe und den gleichen Code in ein neues Blatt wieder eingefügt habe ging wieder alles...

Danke für Deine Lösung, die funktioniert super!

Wünsch Dir ein schönes We

Gruß
Heike

So, ich hab nochmal ne kleine Frage ;-)
(irgendwie wirft jede Anwort eine neue Frage auf)

Ich schreibe die Werte nicht direkt in die Zellen, sondern wähle sie durch ein Dropdownmenü aus.

Wenn ich den Wert änder, muss ich dann erst eine andere Zelle anclicken, dann wieder die Zelle in der ich den Wert geändert habe, und dann ändert sich erst die Farbe.
An was liegt das?

Außerdem funktioniert es mit:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

gar nicht, nur mit:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Gruß
Heike

Hallo Heike,

das Change Ereignis reagiert nur auf Zellveränderung. Für Formel musst Du das Private Sub Worksheet_Calculate() benutzen. Ein Beispiel findest Du auf meiner Homepage.
Link zur Datei

Gruß Hajo

Hi Heike,

schreibe in eine Zelle z.B. =ZUFALLSZAHL() und verwende das Calculate -Ereignis

Bis später,
Karin

Danke euch Beiden,

funktioniert prima!

Gruß
Heike

Hallo Ihr,
das hat jetzt ja alles viel zu schön funktioniert...

Die Daten für das Dropdownmenü kommen aus ner 2. Excel Mappe. Ich haben dann einen Button eigebaut, über den man die Listen aktuallisieren kann (der Bereich wird neu eingelesen und definiert).

Wenn ich den Button jetzt betätige, kommt der Laufzeitfehler '1004':
Die Color-Eigenschaft des Interior-Objekts kann nicht festgelegt werden.

Wird das Button clicken als Event für "Worksheet_Calculate" hergenommen?
Kann ich das umgehen?

Gruß
Heike

Hi Heike,

das Klicken auf den Button nicht, aber jede Veränderung in der Tabelle, die evtl durch den Button ausgelöst wird.
Du kannst höchstens die Zelle mit dem DropDown-Listenfeld mittels WorksheetChange überwachen, dann sollte es eigentlich auch funktionieren.

Bis später,
Karin

Hallo Katrin,

ich werds morgen gleich mal versuchen.
Aber im Prinzip läuft das dann wieder auf die vorherige Lösung hinaus, bei der die Farbänderung erst nach dem clicken in eine andere Zelle und dann wieder in die Geänderte erfolgt.

Vielen Dank

Gruß
Heike

Hi Heike,

ich kenne leider deine Arbeitsmappe nicht. Ich habe jetzt ein Beispiel erstellt, bei dem mittels Change (nicht SelectionChange !!) der Code ausgelöst wird, sobald in der Zelle mit dem DropDown-Listenfeld ein anderer Eintrag gewählt wird. Mein Code dazu lautet so

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$11" Then
        MsgBox Range("D11")
    End If
End Sub

In Zelle D11 befindet sich das DropDown-Listenfeld.

Bis später,
Karin

Hallo Karin,

irgendwie bekomm ich die Lösung nicht hin.
Wie kann ich den hier ne Datei veröffentlichen?
Wär einfacher, wenn ihr meine letzte (einigermaßen) funktionierende Version kennt.

Gruß
Heike

Hallo Heike,

Lade Deine Datei bei www.netupload.de hoch und poste den Link dazu hier im Thread.

mfg
vom Helfer

Danke,

hier mal ein Link zu der Bsp. Datei.

http://www.netupload.de/detail.php?img=5c65a762c14d6078cea7c12b91...

Gruß
Heike

Der Link geht nicht:
hier nochmal:
http://www.netupload.de/detail.php?img=5c65a762c14d6078cea7c12b9104f901.xls


Gruß
Heike

Hallo Heike,

Nach Umsetzen Deines Codes in das Worksheet_Change() Ereignis funktioniert Deine Beispieldatei bei mir unter Excel2000. Insofern kann ich Deine AW9 nicht nachvollziehen.

mfg
vom Helfer

Hallo Zusammen,

Ich hab nocheinmal etwas mit dem Vorschlag von Karin herumprobiert.
Ihr Bsp. läuft beim mir nur, wenn ich die Zelle von Hand beschreibe. Über ein Dropdownmenü geht es nicht.

Hat mir vielleicht jemand nen Tipp?

Vielen Dank für eure Mühe!

Gruß
Heike

Hallo Helfer,

danke für die Hilfe.
Ich arbeite mit Excel 97. Kann es sein, dass es daran liegt?


Gruß
Heike

Hallo Helfer,

ich hab die Datei gerade auf einem Rechner mit Excel 2002 geöffnet.
Und Tatsache, es funktioniert!
Darauf wär ich von alleine bestimmt nicht gekommen.

Eine Lösung für die 97iger Version hab ich jetzt zwar nicht, aber wenigstens liegts nicht am Code ;-)

Vielen, vielen Dank!

Gruß
Heike

So, da ich euch meine endgültige Lösung nicht vorenthalten will, meld ich mich nochmal kurz.

Da die Tabelle sowohl mit Excel 97 als auch mit Excel 2000 bearbeitet wir, hab ich mich für ne Zwitterlösung entschieden.
Generall verwende ich Worksheet_Change() (bei Excel 97 hat das einfach keine Auswirkungen) und zusätzlich bau ich einen Button zum aktuallisieren ein.

Vielen Dank nochmal an alle.

Gruß
Heike

• Bedingte Formatierung nach Filterauswahl
• Bedingte formatierung im Excel
• Bedingte Formatierung
• Bedingte Formatierung mehr als 3 Bedingungen per Formel ohne VBA
• Bedingte Formatierung