Hallo Vielleicht könnt Ihr mir helfen Ich komme nicht weiter Ich möchte eine Anwesenheitsliste bzw. habe ich erstellt mit Tätigkeit und Datum wenn ich in Zeile z.b C9 ein Text eingebe soll in Zeile D94 das aktuelle Datum erscheinen und fixiert bleiben ,habe das soweit mit einer Formel hinbekommen =WENN(C9="P";WENN(D94="";JETZT();D94);"") Ich möchte wenn möglich, das wenn ich auch in der Zeile B9 bis Z9 einen Text eingebe auch in der Zeile D94 das Datum aktualisiert wird und fixiert bleibt ich habe auch schon mit Sverweis probiert , komme aber nicht weiter ,Denkfehler? Im Anhang die Liste mit VBA kenne ich mich nicht Aus, noch nicht :19:
Du erzeugst mit deiner Formel einen Zirkelbezug. Das wird von Excel sicher nicht umsonst als Fehler behandelt. Deine Tabelle scheint ein echtes Monstrum zu werden. So recht verstanden habe ich dein Anliegen nicht aber Anwesenheitslisten werden nicht das erste Mal nachgefragt. Hast du dir Alternativen bzgl. Zeit und Datumsstempel angeschaut oder bzgl. Tabellenaufbau?
der Code wird schon gut funktionieren, nur zwei Hinweise. Mir ist aufgefallen das die Spalte 26 NICHT Monatsende ist! Das waere Spalte 33. Das soll der Frager bitte noch mal überdenken. Für alle Monate ist der Code besser in "ThisWorkbook" untergebracht, sonst muss er in jeden Monat kopiert werden. Unten der Code, gültig für alle Monate in "ThisWorlbook". Geprüft wird auch der Text in Range("B3") um Target in anderen Tabellen auszuschliessen!
mfg Gast 123
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Range("B3") <> "Anwesend Aktuell" Then Exit Sub 'Monate prüfen! If Target.Value = "" Then Exit Sub
' Column = Zeile (hier B oder mehr aber nicht mehr als 26 und gleichzeitig muss es auch Spalte 9 sein (Row)) If Target.Column >= 2 And Target.Column <= 26 And Target.Row = 9 Then ThisWorkbook.ActiveSheet.Range("D94").Value = Format(Now, "dd.mm.yyyy") End If End Sub
20.11.2020, 21:41 (Dieser Beitrag wurde zuletzt bearbeitet: 20.11.2020, 21:42 von schluckspecht.)
@TLuthar Bin mir nicht sicher ob du das so meinst. Wenn ja,dann solltest du unter (MacVersion),Win(Version ????) Einstell.>Formel/Listen>Brechnung,der Iterative MaxWert auf 1 stellen. Dann bleiben die Datumfelder fixiert.
