Hallo,
ich habe in meiner Arbeitsmappe mehrere Suchfelder, d.h. eine Zelle, hinter der eine Datenüberprüfung (Liste auf Namensraum) liegt, und darunter eine Tabelle, die über eine bedingte Formatierung die Zeilen einfärben soll, in denen der Suchbegriff steht.
Kleines Beispiel:
Namensraum definiert als:
Name: Teams
Bezieht sich auf: =Tabelle!$R$13:$R$31
Bedingte Formatierung auf Bereich: $B$14:$P$31
Formel: =UND(ISTTEXT($C$11);SUCHEN($C$11;$B13&$C13&$D13&$E13&$F13&$G13&$H13&$I13&$J13&$K13&$L13&$M13&$N13&$O13&$P13))
Formatierung: Hintergrundfarbe grau
Soweit so gut. Das klappt wunderbar.
Nun habe ich aber in der Arbeitsmappe zwei weitere Tabellen. Der Unterschied zum Beispiel ist, dass sich sowohl die Anzahl der Zeile, aber auch die Anzahl der Spalten der bedingt zu formatierenden Tabellen ändern kann (via VBA)
Einen dynamischen Namensbereich festzulegen, war nicht so schwer. Dazu kopiere ich einfach die entsprechende Spalte mit den Namen neben die Tabelle und erstelle via VBA einen Namensraum
ActiveWorkbook.Names.Add Name:="Teamnamen", RefersTo:="=" & ActiveSheet.Name & "!$R$13:$R$" & LetzteTabellenZeile
Und Lege anschließend die Datenüberprüfung auf die Zelle F9 (Suchfeld)
Range("F9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Teamnamen"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Nun möchte ich aber, dass sich die Farbe der gesamten Zeilen zu grau ändert, die den Suchbegriff aus F9 enthalten.
In F9 steht der Suchtext
In Spalte "F12:" & LetzteTabellenZeile, sowie "I12:" & LetzteTabellenZeile kann der Suchbegriff stehen.
Die Tabelle hat die Range(Cells(12,2),Cells(LetzteTabellenZeile,LetzteTabellenSpalte))
LetzteTabellenZeile und LetzteTabellenSpalte sind Variabeln vom Typ Integer und werden bereits korrekt ermittelt.
Danke
Holger
Kann mir jemand helfen