Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
580to584
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Änderung / OnExit

Letzte Änderung / OnExit
03.03.2005 13:05:00
Timo
Moin zusammen,
ich möchte in einer Datei gerne eine Spalte definieren, die automatisch das Tagesdatum annimmt, wenn in der betreffenden Zeile Änderungen erfolgen. Ein OnExit-Event gibt es meines Wissens nach nicht (Jedenfalls konnte ich nicht fündig werden). Ein Exit-Event scheint auch nicht zu funktionieren, da es hier immer eines Formularobjektes bedarf. Hat jemand bereits etwas ähnliches gebastelt und weiß Rat? Vielen Dank schon mal!
Gruß,
DC

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Änderung / OnExit
03.03.2005 13:11:08
Hajo_Zi
Hallo Dc
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then Range("A1") = Date
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Letzte Änderung / OnExit
03.03.2005 14:21:32
Timo
Hallo,
ich habe das (sehr gut funktionierende) Sub noch etwas angepasst, für alle die es interessiert:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column = 79 Then Exit Sub
Cells(Target.Row, 79) = Date
End Sub

Die 79 ist natürlich nur für meine konkrete Arbeitsmappe geeignet (Spalte "CA"). Allerdings ging das Sub in eine Endlosschleife, da ja eine Änderung des Worksheets durch das Sub vorgenommen wurde, wodurch wieder eine Änderung... etc.
Nochmal: Vielen Dank für den Schubser in die richtige Richtung :)
Gruß,
Timo (Im ersten Beitrag sollte auch gar nicht DC stehen... alte Gewohnheit halt...)
Anzeige
AW: Letzte Änderung / OnExit
03.03.2005 13:11:52
H.M.
gibt es da nicht ein onEntry-event, das bei der eingabe ein makro aufruft? ich glaub ich hab das mal benutzt. mit diesem makro koennte man ja dann feststellen in welcher zeile der cursor ist und dann in dieser zeile das datum eintragen.
AW: Letzte Änderung / OnExit
03.03.2005 13:28:35
Hajo_Zi
Hallo
ist das nun ein anderes Problem ode ein anderen Name?
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
ersetze
If Target.Row = 1 Then Target.Row Range("A1") = Date
durch
Target.Row = Date
Gruß Hajo
Anzeige
AW: Letzte Änderung / OnExit
03.03.2005 13:36:22
Hajo_Zi
Hallo
geändert in
Cells(Target.Row, 1) = Date
Gruß Hajo
AW: Letzte Änderung / OnExit
03.03.2005 13:50:22
Timo
Hallo,
vielen Dank für deine Antworten. Zu der Anmerkung von dir: Ich war es nicht, da ich zu dem Zeitpunkt gerade meine Mittagspause verbracht habe ;) Ich danke dir trotzdem für deine Hilfe und werde das Ganze auch gleich ausprobieren. Außerdem denke ich auch, dass eine Begrüßung und ein Gruß normal sein sollte. In diesem Sinne:
Gruß und vielen Dank!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige