Hilfe bei Bedingter Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range If Intersect(Range("J5:L196"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False For Each Zelle In Intersect(Range("J5:L196"), Target) Range("V" & Zelle.Row) = Now Next Application.EnableEvents = True End Sub

…Josef;
merkwürdig ist…

For Each Zelle In Intersect(Range("J5:L196"), Target)
Range("V" & Zelle.Row) = Now
Next

Intersect ist hier nicht mehr erforderlich, denn die Änderungsfälle in anderen Bereichen wurden bereits zuvor mit Intersect ausgeschlossen. Das Target, das hier die geänderte Zelle repräsentiert, liegt also bereits im relevanten Bereich. Das Intersect bewirkt hier nur, dass auch genau dieses Target als Bezugsbereich ausgewählt wird. Damit hat dieser nur eine Zelle, wodurch die Schleife auch stets nur 1× durchlaufen wird, also überflüssig ist. Die Objekt-Laufvariable Zelle repräsentiert somit ebenfalls Target. Da das so ist, ist es zwar nicht ganz überflüssig, mit Zelle.Row die Zeile von Target zu bestimmen, aber mit ihrer Hilfe über Range die Zelle für den Datumseintrag in Spalte V zu ermitteln. Das macht man hier besser mit Cells, da der Eintrag in unterschiedl Spalten erfolgen kann, sonst käme auch Offset infrage. Somit ergäbe sich flgd Prozedur:

Private Sub Worksheet_Change(ByVal Target As Range)
Const adRelBereich$ = "J5:L196", nrDatNotatSp As Long = 22
If Not Intersect(Target, Range(adRelBereich)) Is Nothing Then
With Application
.EnableEvents = False
Me.Cells(Target.Row, nrDatNotatSp) = Now
.EnableEvents = True
End With
End If
End Sub

Die beiden Konstanten am Prozeduranfang machen diese „pflegeleichter“ → man muss bei Änderungen nicht die ganze Proz durchsuchen (was hier allerdings kein Problem wäre). Die direkte Einbindung der Behandlungsroutine in das If-Konstrukt zu Intersect wurde gewählt, um hier ggf später weitere Pgm-Verzweigungen mit ElseIf einbinden zu können → merke: Es ist nur eine Change-Proz direkt im Dokument-Klassenmodul des Blattes möglich (eine weitere in dem der Mappe und noch eine zur ganzen Application [Xl], deren Klassenmodul aber standardmäßig nicht vorbereitet ist)!
Gruß Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range If Intersect(Range("J5:L196"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False With Range(Cells(5, 22), Cells(Rows.Count, 22).End(xlUp)) .Font.Color = .Interior.Color For Each Zelle In Intersect(Range("J5:L196"), Target) Cells(Zelle.Row, 22) = Now Cells(Zelle.Row, 22).Font.ColorIndex = xlColorIndexAutomatic Next End With Application.EnableEvents = True End Sub

…vorstellst, Hansueli;
Es werden täglich von fast allen LKWs mehrere Tankvorgänge eingetragen.
Alle auf einmal? Welcher „LKW“ kommt auf die Idee, das mit MxFml und MxKonstante zu machen (zB {={1.2.3}})? Oder wird erst auf ein Hilfsblatt geschrieben und dann im Block kopiert? Davon stand nichts in der Aufgabenstellung!
Also kann die Abfrage der Einzelligkeit durchaus benutzt wdn, um die Proz nicht unnötig bei irgendwelchen Copy'n'Paste-Vorgängen, die ja tatsächlich anfallen könnten, auszulösen. Soll aus dem relevanten Bereich woanders hin kopiert wdn, wird die Proz zZ ohnehin nicht benötigt. Soll sie später entsprechend ergänzt wdn, muss das natürlich beachtet wdn.
Problematisch könnte's höchstens beim Löschen/Ausschneiden ganzer Zellbereiche im Relevanzbereich wdn, aber das wird durch eine Einzelligkeitsprüfung ja auch abgefangen. Für das Löschen könnte man natürlich noch einen Zyklus unter einem ElseIf zur Einzelligkeit hinzufügen, aber das könnte bei einer operativen Tabelle selten der Fall sein, es sei denn, irgendein „LKW“ irrt sich mal (oder öfter). Aber diese Rahmenbedingungen kennen wir nicht, weil sie nicht mitgeteilt wurden.
Im ursprünglichen Code wird ja ganz am Anfang schon Intersect bemüht. Bliebe nur zu prüfen, ob ein mehrzelliges Target, das nur teilweise mit dem relevanten Bereich übereinstimmt, ein Nothing ergibt oder nicht, was ich im Moment nicht kann → glaube aber, wird Nothing sein.
Die Auslösung des Events erfolgt tatsächlich nur 1x pro Änderung, nicht unbedingt pro Zelle, aber das hat doch eigentl wenig mit der als üblich vorausgesetzten Arbeitsweise zu tun. Insofern sind deine Einwände, auf den konkreten Fall bezogen, eher theoretischer Natur.
Übrigens hast du bei deinem Code meine pflegefreundliche Anregung nicht übernommen. Ist zwar hier nicht wichtig, aber man sollte sich so etwas zur Gewohnheit machen — der Änderer/Anpasser wird's dir danken. ;-)
Luc :-?

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread