Excel 2013 Wenn funktion mit Datum setzen?

[Diskordier]

Ich möchte eine Eingangskontrolle-Liste erstellen. In Spalte A werden die Artikel Nummern der Erfassten Objekte eingetragen.
Spalte B soll dann das jeweilge Datum eingefügt werden wenn in spalte A etwas steht.

zb =Wenn( A1>1;DATUM(JAHR;Monat;Tag);"no")

Jedoch funktioniert das so nicht da es den Wert Datum als Textstring und nicht als Datum funktion nimmt.

Ist so was überhaupt möglich und wenn man ein Datum setzen kann soll sich das ja nicht jedesmal aktualisieren sondern nur genau an dem Tag gelten an dem man was in spalte A geschrieben hat.

Weiter wie kann ich eine Wenn Abfrage starten wenn in spalte A der Wert keine Zahl ist sondern eine text in einer Form von zb 000110099 ?

Da alle Artikelnummern mit 000 beginnen. kann ich die nicht als Zahl ausgeben.

Vielen Dank für eure Hilfe.

 

[drfuture]

Wenn() sollte als Parameter auch nur A1 annehmen und dann prüfen ob *irgendwas* in der Zelle steht. Dein Wunsch das immer das Datum in der Spalte steht von dem Tag an dem der Wert hinzufügt wurde - ohne sich dann zu aktualisieren ist jedoch meiner Meinung nach nur mit einem Makro möglich das du z.B. 1x am Tag beim starten oder beenden der .xls(x) ausführst. Denn jede Zellenfunktion aktualisiert sich eigentlich immer wieder.

 

[Diskordier]

Vielen Dank für die Antworten ,Also komme ich nur mit Makro weiter ?

Ich hab noch nie mit Makro gearbeitet aber würde das in etwa so gehen?

Mit crtl F11 erstelle ich ja eine Makro arbeitsmappe dann Zeile anklicken und ausführen.

Name vergeben und dann weiter erstellen um in den VB editor zu gelangen.

Sub Datum ( Dim Datum As Date
Datum = Now()
Range("A1").Value = Datum
Selection.NumberFormat = "dd/mm/yyyyy" )
if Range ("A1") = LÄNGE(A1)>000; Then Range ("B1") = Date

End Sub

Dann speichern ?

und alt F4 um Vb zu schliessen
Wie wende ich das nun auf mein Excel .

 

[drfuture]

Die Frage ist wann es am besten wäre für dich den Code auszuführen... man kann ihn manuell auf ein Icon in der Toolbar legen - oder es gibt Ereignise wie das öffnen und schließen einer Arbeitsmappe an den man das ganze binden könnte.

An sich wäre der Code für den Anfang nicht schlecht - wobei ich die Klammern nach Sub Datum und dann am Ende der 4. Zeile komisch finde?
Und dir fehlt eine Abfrage ob in B1 schon etwas steht - denn dann soll ja kein neues Datum gesetzt werden.. und natürlich wird im Moment das ganze nur für eine Zeile ausgeführt ... Ok länge() als befehl kannte ich auch noch nicht - normal gibt len() die länge eines Strings zurück

[src=vb]
Sub SetzteDatum
Dim LastCell, Datum, i
Datum = Now()
Lastcell = Cells(65536, 1).End(xlUp).Row

for i = 1 to Lastcell
Range("A" & i).Select
If len(Activecell.Formular1c1) > 0 then
Range("B" & i).Select
If len(ActiveCell.Formular1c1) = 0 then
ActiveCell.Formular1c1 = Datum
Selection.NumberFormat = "dd/mm/yyyyy"
End if
End if
next i

end Sub

[/src]

.. hoffe das stimmt - mal aus dem Kopf getippt ^^