Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I5:I41")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = CDate(Format(Now, "hh:mm"))
Target.Offset(0, -1) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub
dieses Makro habe ich nun und in der Zelle daneben dann =SUMME(der beiden Zellen). Diese dann auch noch bedingt formatiert, sodass "Zellenwert<= JETZT()-HEUTE() " bei Eintreffen die Zelle grün wird.
Soweit sieht auch alles sehr gut aus!
nur gibt es ein Problem... ich habe ja auch das Makro bzw. mehrere zum Löschen und Aufrücken. Dies funktioniert nun nicht mehr in den Zeilen, wo jetzt das neue Makro drin steht (also wenn es eingegeben wurde) . In den Zeilen wo man noch keine Zeit eingegeben hat, kann man die Reihe noch löschen.
Folgende Fehlermeldung kommt:
"Laufzeitfehler ´1004´:
Das Makro ´...´ kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert.
Aber in den anderen Reihen, wo man noch keine Zeit eingegeben hat funktioniert es ja... also sollte es doch verfügbar und aktiv sein.
|