Excel / VBA - Farbteil einer Spalte

Ich habe Code zum Färben eines Teils einer Zeile basierend auf dem, was in eine bestimmte Spalte eingegeben wurde, aber ich möchte diesen Code so umsetzen, dass ein Teil der Spalte basierend auf den in eine Zeile eingegebenen Daten farbig ist. So ändern Sie den folgenden Code:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Wenn eine Änderung im Arbeitsblatt vorgenommen wird ... Wenn sich nichts überschneidet (Target, Range ("B3: B100")), dann' ... für alle Zellen von B3 bis B100 (Rolle) ... Wenn Selection.Cells.Count> 1 Then Exit Sub '(Beenden Sie die Routine, wenn Änderungen an mehr als einer Zelle gleichzeitig vorgenommen wurden - Verhindert Abstürze. Select Case Target Case "Manager"' ... Überprüfen Sie, ob die Zelle enthält "Manager" ... Bereich ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... und wenn ja, ändern Sie die Farbe der Zellen in dieser Zeile von B - AH zu blassgelb. 'Andere Fälle hier .... Ende Wählen Sie Ende wenn Ende Sub 

Lösung

Bitte schön:

 Private Sub Worksheet_Change (ByVal Target as Range) Wenn Intersect (Target, Range ("A3: L3")) nichts oder _ Selection.Cells.Count> 1 ist, dann Exit Sub Select Case Ziel Case "Manager" Range (Cells (1, Target.Column), Cells (30, Target.Column)). Interior.ColorIndex = 36 End Select End Sub 

Vielen Dank an TrowaD für diesen Tipp.