Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige