Markierung neuer Einträge

Hallo zusammen,
leider bin ich anscheinend nicht ganz in der Lage, entsprechende Ansätze auf mein Problem anzupassen und umzusetzen....
Ich habe eine relativ große Tabelle (52 Spalten) die zum einen über eine UserForm, aber auch über Dropdown und freie Texteingabe direkt in der Tabelle gefüllt werden kann.
Da +3 Personen mit der Tabelle arbeiten, kommen schnell einige neue Einträge zusammen. Somit wäre eine gewisse "Moderation" gut.
Hierbei hätte ich an eine Hervorhebung neuer Einträge gedacht. Sprich, dass neu hinzugefügte Einträge z.B. 2 Wochen (bin auch offen für eine andere Lösung) farblich markiert werden. Non plus ultra wäre, wenn die Markierung auch dadurch aufgehoben werden könnte, dass der Wert "Ja" oder "z.K." in der Spalte R in der entsprechenden Zeile steht.
Und ja, ich weiß. Es gibt unzählige ähnliche Beiträge in diesem Forum oder auf anderen Seiten. Leider, wie oben geschrieben, bekomme ich diese in meiner Tabelle nicht zu laufen....
Ich hoffe man versteht, was ich meine und jemand kann mir helfen. Ich füge noch eine Beispieltabelle hinzu, mit der ich solche Funktionen teste. Also nicht wunder, wenn die Tabelle manchmal keinen Sinn ergibt und die Werte zum Teil in falsche Zellen geschrieben werden. Sie fungiert tatsächlich nur dazu um solche Neuerungen erst mal auszuprobieren. Hoffe dennoch, dass sie euch eventuell einen Eindruck gibt, wie die Tabelle grundsätzlich aufgebaut ist und funktioniert.
Danke und Gruß
Tobi
https://www.herber.de/bbs/user/157198.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Klasse!!! Vielen Dank!
Jetzt habe ich aber leider noch zwei wahrscheinlich sehr dumme Rückfragen...
Zum einen, weiß ich nicht ganz wie ich den Code einfüge, ohne dass ein Fehler auftritt (Ja, die Kenntnisse "Kaum" sind großzügig genannt).
Denn ich habe folgenden Funktion in der Tabelle1 bereits:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngLock As Range, Zelle As Range
Set rngLock = Intersect(Target, Range("R1:R600"))
If Not rngLock Is Nothing Then
Call Unprotect(Password:="XXX")
For Each Zelle In rngLock
If Zelle.Text = "Ja" Then
Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = True
Else
Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = False
End If
Next
Call Protect(Password:="XXX")
Call ThisWorkbook.Save
Set rngLock = Nothing
End If
End Sub

Wie bekomme ich da deinen:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  18 Then Cells(Target.Row, 18) = Date
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range
End Sub

hinzugefügt und habe dennoch beide Funktionen drin?
Zweite Frage ist, weil du meintes "sogar mit automatischer Löschung nach 14 Tagen". Hierbei meinst du die Hervorhebung und nicht den Datensatz, richtig?
Entschuldige vielmals für die Fragen und für die Unfähigkeit und danke!

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLock As Range, Zelle As Range Set rngLock = Intersect(Target, Range("R1:R600")) If Not rngLock Is Nothing Then Call Unprotect(Password:="XXX") For Each Zelle In rngLock If Zelle.Text = "Ja" Then Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = True Else Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = False End If Next Call Protect(Password:="XXX") Call ThisWorkbook.Save Set rngLock = Nothing End If End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Markierung neuer Einträge

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread