VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Steffi	Datum: 10.11.2010 07:59:09	Views: 722	Rating:	Antwort:
Thema: Aw:Aw:Datum in VBA
Severus schrieb am 10.11.2010 07:41:49: Steffi schrieb am 10.11.2010 07:34:12: Guten Morgen!! Bei folgendem Code wird immer jeweils ein "x" gesetzt, egal was ich eingebe. Nun möchte ich, dass bei Eingabe das aktuelle Datum erscheint. Somit kann man praktisch feststellen, wann die letzte Änderung durchgeführt worden ist. Wie ersetze ich dann das "x"? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 200 Then Exit Sub If Target.Row 4 Then Exit Sub If Target.Column = 2 Then If Target = "" Then Exit Sub Application.EnableEvents = False If Target <> "x" Then Target = "x" Target.Offset(0, 1) = "" Target.Offset(0, 2) = "" ElseIf Target.Column = 3 Then If Target = "" Then Exit Sub Application.EnableEvents = False If Target <> "x" Then Target = "x" Target.Offset(0, 1) = "" Target.Offset(0, -1) = "" ElseIf Target.Column = 4 Then If Target = "" Then Exit Sub Application.EnableEvents = False If Target <> "x" Then Target = "x" Target.Offset(0, -1) = "" Target.Offset(0, -2) = "" End If Application.EnableEvents = True End Sub Hallo Steffi, nochmal für Dummies: Was willst Du eigentlich? Soll "Target = "x"" nur durch "Target = Date" ersetzt werden? Oder sol auch die Abfrage "If Target <> "x"" durch "If Not IsDate(Target)" ersetzt werden? Oder was willst Du erreichen? Severus Hab's schon! "If Target <> "x"" musste auch ersetzt werden. Danke!

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen