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!
|