Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum der Bearbeitung

Forumthread: Datum der Bearbeitung

Datum der Bearbeitung
Jürgen
Guten Morgen zusammen,
vielleicht kann mir jemand helfen?
In einer Tabelle sind die Bereiche:
S12:S70
U12:U70
W12:W70 laufend zu ersetzen (von unterschiedlichen Mitarbeitern).
Ich möchte erreichen,dass bei Eingabe in den jeweiligen Bereichen in der
ZelleS6;U6;und W6 sich automatisch das Änderungsdatum einträgt.
Dieses sollte sich auch mit jeder neuen Eingabe ändern.
In der Recherche konnte ich nichts finden.
Danke an Alle
Gruß
Jürgen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum der Bearbeitung
Holger
das geht (nur?) mit VBA. Öffne den VBA-Editor (Alt+F11), wähle links mit Doppelklick die Tabelle aus, in der Deine Daten stehen und trage folgenden Code ein
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
If Target.Row >= 12 And Target.Row = 70 Then
Cells(6, Target.Column) = Date
End If
End If
Das ist das Beispiel für Spalte S. Der Rest ist ähnlich.
mfg Holger
Anzeige
AW: Datum der Bearbeitung
Jürgen
Hallo Holger,
vielen Dank erst mal.Ich werde es versuchen.
Falls ich nicht zurecht komme. melde ich mich noch mal.
Danke noch mal
Gruß
Jürgen
AW: Datum der Bearbeitung
Jürgen
Hallo nochmal,
mit dem Code von Holger kommt immer Kompilierungsfehler.
Ich sehe den Fehler nicht kann mir jemand behilflich sein?
Gruß
Jürgen
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
If Target.Row >= 12 And Target.Row = 70 Then
Cells(6, Target.Column) = Date
End If
End If
Anzeige
AW: Datum der Bearbeitung
Holger
auf alle Fälle fehlt ein End Sub&lt/pre&gt:
&ltpre&gt
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
If Target.Row &gt= 12 And Target.Row &lt= 70 Then
Cells(6, Target.Column) = Date
End If
End If
End Sub&lt/pre&gt
Holger
Anzeige
AW: Datum der Bearbeitung
Jürgen
Hallo Holger,
danke es klappt
Gruß
Jürgen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige