Die Farbänderung (und vor allen Dingen wieder ZURÜCK) ist wesentlich aufwändiger. Hallo Schatzi kann ich mir momentan nicht vorstellen wie das aussieht, aber klar. Es geht nur darum besser zu sehen in welcher Reihe zum Namen man sich befindet. Hallo, also so wie ich das sehe willst du die einfärbung der Übersicht wegen? dann könntest du z. auch sowas nehmen Tabellenblatt Rechtsklick-> Code anzeigen und da einfügen. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application. Excel vba farbe zelle anderny. EnableEvents = False Rows() tivate Application. EnableEvents = True End Sub Gruß Hallo Gook im Prinzip ist das so wie ich mir das vorstelle, allerdings soll nur die jeweilige Zelle A6 oder A8 oder A10...... so gekennzeichnet werden. Der Sinn ist nur übersichtlichkeit. Wenn in der Zelle A6...... ein Vereinskollegenname steht und nun in den Zellen AH5 eine Eingabe gemacht wird ist die Übersichtlichkeit schlecht, da man nicht in der selben Zeile ist wir der Name steht. Danke für die Vorschläge Dann probier mal so ein Code Dim i As Range Dim bereich As Range Set bereich = Range("a1:a100") For Each i In bereich If lorIndex <> 15 Then lorIndex = xlColorIndexNone End If Next i If Cells(, 1)lorIndex <> 15 Then Cells(, 1)lorIndex = 5 Musst aber den Blattschutz rausnehmen... schon fast Perfekt.
Hi, ich habe in der Zelle A1 eine Farbe (zb. Orange) und in der Zelle B1 steht eine Zahl (zb. 15). Ich mchte nun in die Zelle C1 eine Funktion schreiben. Die Funktion ist jetzt das Problem, ich mchte diese mit VBA selbst erstellen und komme nicht weiter. Aufgabe der Funktion: Wenn der Wert in der Zelle B1 kleiner als 20 ist, soll die Zelle C1 (in der die Funktion steht), die Farbe von Zelle A1 annehmen. VBA Zellfarbe ändern !. Mein Bisheriger Versuch (der nicht funktioniert): Function farbe() If Cells(1, 2) < 20 Then Set Range(C1)lorIndex = Range(A1)lorIndex End If End Function knnt ihr mir weiter helfen? (Bedingte Formatierung funktioniert meines Wissens nicht, da die Farbe in Zelle A1 verndert werden kann) Gre Lwenkopf