Office: Wenn ich hier die Zelle verlasse soll sich da was ändern

Mahlzeit!

Hab ein kleines Problem, was ich vielleicht auch selbst hätte lösen können, wäre mein VBA-Kurs nich schon so lang her bzw. würde ich die Sachen daraus öfter nutzen müssen ;-)

Folgendes... ich habe für unsere Firmenfahrzeuge eine Tabelle, wo ich des öfteren die km-Stände aktualisiere(n muss). Also in Spalte A steht Kennzeichen in B km-Stand und in C der Tag an dem ich den km-Stand abgelesen habe. Das Datum gebe ich bisher selbst ein, würde das gern aber automatisieren lassen, wenn das einfach funktioniert.

Also ich bräuchte praktisch einen Befehl/Makro der sagt: wenn ich in Spalte B eine Zelle mit Enter verlasse soll er mir in der selben Zeile in Spalte C das heutige Datum ausspucken.

Ist das über ein "einfaches" Makro möglich?

 

Hallo!

quick'n'dirty:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Target.Offset(0, 1) = Date
End Sub

 

Suppi! :lol:
Danke für die schnelle Hilfe schatzi!

 

Auch weil schatzi "quick 'n dirty" schrieb: Ein bißchen Vorsicht bei dem Makro, bitte! Das Datum in C würde nämlich auch (nachträglich) verändert werden, wenn Du irgendwann später mal feststelltst, daß Du im km-Stand einen Tippfehler hattest.

Soll heißen: Bei nachträglichen Änderungen zuerst das ursprünbgliche Datum in C merken und danach restaurieren, oder das Makro leicht erweitern, damit es kein Datum abfeuert, wenn die Zelle in C bereits belegt ist.

Code:

If Target.Column = 2 Then
    if target.offset(0,1).value=0 then
        Target.Offset(0, 1).value = Date
    endif
endif

Aber eine nette Erweiterung des Makros wäre vielleicht noch sinnvoll, wenn es eh schon mal "in action" ist. Irgendwo wirst Du doch sicherlich eine Formel haben, die den "alten" km-Stand vom "neuen" abzieht, oder? Und diese Formel muß Du dann ja je nach Bedarf "runterziehen", oder?

In dem Fall könntest du Dir das sparen und die Formel gleich per Makro in die passende Zelle setzen. Z.B. ganz grob mal so:

Code:

if target.row>1 then
    target.offset(0,2).formula = "=a" & target.row & "-a" & target-row-1
endif

Gruß, Michael