ich gehe von einer Tabelle (SHEET(4) STÜCKE) aus, die z.B. so aussieht
Person 1 Person 1 Person 3 .......
TEAM1 X
TEAM2 X
TEAM3 X X
...
Aus dieser Tabelle generiere ich nun formeln für die bedingte Formatierung mit
Sub Farbe_NET()
Dim n as integer
n=1
FORMEL = Workbooks("Test.xlsm").Worksheets(1).FormelAusgebenII(n)
Range("G:G").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.FormatConditions.Delete
' Bedingung für grünen Zellhintergrund
With .FormatConditions.Add(Type:=xlExpression, Formula1:=FORMEL)
.Interior.ColorIndex = Tabelle4.interior.colorIndex.cell(n+3,1)
End With
End With
End Sub
Das funktioniert auch gut.
Ich möchte nun in einer Tabelle dieser Art (siehe unten) alle personen in einer Zeile einfärben, wenn in Spalte U der Wert des Teams eingegebne wird
also
Person 1 Person 1 Person 3 ....... Spalte U
Datum 1 Farbe von TEAM1 Team1
Datum 2 Farbe von TEAM1 Team1
Datum 3 Farbe von TEAM3 Farbe von TEAM3 ..... Team3
.
.
.
Aber meine Routine färbt immer nur EINE Spalte. für die anderen Personen des Teams ist die Formel aber genau die gleiche. Wie würdet Ihr das lösen?
Zudem ist nicht vorher klar, wieviele Teams oder Personen es gibt, das sind Variablen. Dazu habe ich auch noch keine Idee. Ihr?
Hat