PDA

Vollständige Version anzeigen : Tagesdatum automatisch einfügen


shb
15.07.2014, 19:33
Hallo an alle Spezialisten,

ich habe mal wieder ein Problem, das für euch wahrscheinlich lächerlich erscheint.

In einer Tabelle sollen Artikel angelegt werden. Als letzter Eintrag in der Zeile
soll nach dem Verlassen der vorherigen Zelle automatisch das Tagesdatum als Anlagedatum geschrieben werden.

In meinem angehängten Beispiel soll nach dem Verlassen der Zelle B2 das Tagesdatum in die Zelle C2 automatisch geschrieben werden. Ich denke mal, dass das ein VBA 3 Zeiler ist. Leider ist Excel-VBA nicht wirklich meine Welt.

Es wäre schön, wenn mir jemand das zeigen würde.

LG shb

Hajo_Zi
15.07.2014, 19:43
schau Dir dies an Datum bei Änderung (http://hajo-excel.de/chCounter3/getfile.php?id=41)

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Mc Santa
15.07.2014, 19:46
Hallo,

nach exakt deinen Kriterien geht es nicht. Möglich wäre folgende Bedingung:
Schreibe das aktuelle Datum in Spalte C, sobald eine Zelle in Spalte C angeklickt wird UND die diese Zelle noch leer ist, Und in der gleichen Zeile in Spalte B schon etwas steht.
Klicke dazu unten in bei den Tabellenreitern auf "Tabelle1" > Code anzeigen > füge folgendes ein:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Target.Count > 1 Then
If Target.Column = 3 And Target.Value = "" Then
If Target.Offset(, -1) <> "" Then Target = Date
End If
End If
End Sub

Alternativ auf so:
Gehe in eine beliebige Zelle in Excel und drücke STRG + , (Komma). Eingabe mit Enter abschließen.
Diese Tastenkombination fügt immer, ganz ohne Makros, das aktuelle Datum ein :)

Hilft dir eine dieser Möglichkeiten?

VG

shb
15.07.2014, 20:14
Hallo Hajo_Zi und Mc Santa,

vielen Dank für eure superschnelle Hilfe.

Es funktioniert genau so, wie ich es möchte. Perfekt!!!!!!

LG