Datumsaktualisierung bei Änderungen
29.06.2022 16:43:44
JKH
ich habe heute versucht folgende Anwendung in eine .xlsm Datei zu integrieren:
Sollte in Zeile X eine Änderung gemacht werden, muss in Zelle Y/X das Datum aktualisiert werden. Das Ganze sollte dann auch für bis zu 2000 folgende Zeilen analog geschehen.
Vorerst möchte ich folgende Lösungsansatze besprechen:
1. Formel
=WENN(ODER(A5""; B5"");JETZT();"")
2.Makro
Private Sub Worksheet_Change(ByVal Target As Range)
'wenn Änderung in Zeile X dann Datum in (X, 107) aktualisieren
If Target.Row = X1 Then ActiveSheet.Cells(X1, Y40).Value = Date
If Target.Row = X2 Then ActiveSheet.Cells(X2, Y40).Value = Date
End Sub
a) Bei Klick auf die Ausgabezelle ist Excel abgestürzt. Vereinfachte Lsg.: Sperren der Ausgabezellen funktioniert halbwegs.
b) Beim Versuch 2000 der Bedingungen einzufügen folgt der Fehler "Prozedur zu lang".
c) Nachdem ich die Bedingungen auf 500 reduziert hatte, war es leider so, dass Excel abstürzte sobald ich eine der Zellen in einer entsprechenden Zeile (Row) geändert hatte. Sogar als ich die Bedingungen wieder auf zwei reduziert hatte stürzte Excel ab, sobald ich in die zweite Zeile etwas geschrieben habe.
Nun zu meiner Frage: Der Einfachheit halber wäre mir Lösung 1. lieber, 2. wäre aber auch ok, solange sie funktioniert. Hat jemand zur Lösung sinnvolle Infos oder kann mir gar schreiben wie ich die Funktionalität am einfachsten herstellte?
Beste Grüße