Hallo zusammen!

Meine Exceldatei setzt sich folgendermaßen zusammen: Sie besteht aus 7 Tabellenblätter. Der Aufbau jedes Tabellenblatts ist der gleiche. Sie enthalten eine Reihe an Punkten, die abzuarbeiten sind und sich stetig erweitern. Ab Zeile 10 jedes Tabellenblatts geschieht folgendes:

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 200 Then Exit Sub
If Target.Row < 8 Then Exit Sub
If Target.Column > 4 Then Exit Sub
If Target.Column = 2 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsDate(Target) Then Target = Date
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
ElseIf Target.Column = 3 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsDate(Target) Then Target = Date
Target.Offset(0, 1) = ""
Target.Offset(0, -1) = ""
ElseIf Target.Column = 4 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsDate(Target) Then Target = Date
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
End If
Application.EnableEvents = True
End Sub 

D.h. Wenn in Spalte 2, 3 oder 4 eine beliebige Taste gewählt wird, dann wird das aktuelle Datum eingefügt. (Funktioniert einwandfrei!)

 Ich habe nun das Ganze noch mit der bedingten Formatierung bearbeitet. D.h. wenn in Spalte 2 (B) eine Eingabe getätigt wird, soll die ganze Zeile ab Spalte B bis Spalte H grau und fett markiert werden.

 Wird in Spalte 3 ( C ) eine Eingabe getätigt, soll die ganze Zeile ab Spalte C bis Spalte H rot und fett markiert werden.

 Wird in Spalte 4 (D) eine Eingabe getätigt, soll die ganze Zeile ab Spalte D bis Spalte H grün und fett markiert werden.

 Wird jetzt eine neue Zeile hinzugefügt, dann muss die bedingte Formatierung per Hand vorgenommen werden. Kann man dies auch in den VBA – Code mit einfließen lassen?

 Danke schon mal im Voraus!