AW: Danke, funktioniert nicht ganz.
18.07.2007 08:18:33
fcs
Hallo Zeka,
das Problem ist, dass ich die Formeln so eingerichtet habe, dass immer die Änderungen angeszeigt werden die zwischen Start und Ende des Vergleichszeitraums stattgefunden haben. Die Änderungen, die du heute eingibst, werden somit erst morgen Früh in den Formeln in den Spalte K bis M angezeigt.
Zum Probieren ist die Änderung der Formeln in Ordnung, langfristig solltest du sie aber meine ursprüngliche Form setzen.
Alternativ könnte man auch Spalten einfügen Änderungen Heute/Änderungen Gestern oder in den Spalten G bis J die Änderungen des heutigen Tages per bedingter Formatierung farblich kennzeichnen.
Ich hab die Datei mal so angepasst, dass in den Spalten K bis M die aktuellen Änderungen und in N bis P die Änderungen des Vortags angezeigt werden.
Am Code muss du Anpassungen machen, wenn die 1. Zeile in der eine Ausweisnummer steht nicht = 5 _
ist. Dann in Zeile
If Not Intersect(Target, .Range(.Cells(5, 2), wks.Cells(lngZeile, 5))) Is Nothing Then
im Teil .Range(.Cells(5, 2)
die 5 entsprechend anpassen.
Die letzte Zeile mit Daten wird automatisch erkannt.
https://www.herber.de/bbs/user/44189.xls
Gruß
Franz