Problem bei bedingter Formatierung mit Makro
Margot
ich habe mir eine Liste geschrieben, die je nach Eingabe eines Kürzels die entsprechenden Zellen einfärbt. Bisher funktionierte das auch wunderbar. Doch gestern hatte ich erst ein anderes Makro geschrieben, das dann aber wieder rausgelöscht weil es doch nicht so war wie ich mir das vorgestelllt hatte.
An dem "Zelleinfärbungsmakro" habe ich aber nichts verändert.
Heute geht nun mein Makro nur noch teilweise und ich komme einfach nicht drauf was falsch ist.
Hier mal ein Auszug
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rc As Range
Application.ScreenUpdating = True
If Selection.Columns.Count * Selection.Rows.Count Ich hab einige Bedingungen rausgelassen, sind aber ja alle nach dem gleichen Schema.
Mein Problem nun ist, wenn ich in eine Zelle beispielsweise GZ eingebe, läuft das Makro ganz brav durch, geht auch über Target.Interior.ColorIndex = 5, stellt aber den Index nicht um. Er bleibt einfach beim Wert der zuvor drin stand.
Das Seltsame ist, wenn ich den Inhalt rauslösche, also "" eingebe, dann funktioniert es, er stellt brav den Index 2 ein. Es geht auch wenn ich ein Kürzel eingebe und dann die Zelle mit dem Kreuz über mehrere Zellen ziehe (kopiere).
Ich hoffe jemand von euch hat eine Idee was ich angestellt haben könnte
Schon mal Danke
Margot
Anzeige