Office: Datum fest und fortlaufend.

Hallo,

ich möchte eine Zelle mit dem Status "in Arbeit" oder "erledigt" ausfüllen. Je nach Status soll nun die nächste Zelle ein fortlaufendes Datum(bei Status "in Arbeit") oder das jetzige Datum (nicht fortlaufend bei Status "erledigt") enthalten. Über die WENN-Funktion habe ich soweit alles hinbekommen ausser dass das aktuelle Datum beim Status erledigt nicht stehenbleibt.
Die Funktion sieht zur zeit so aus:
=WENN(I10="erl.";FEST(HEUTE();0;1);HEUTE())
Der Fettgedruckte Bereich funktioniert nicht so wie gedacht. Wer kann mir weiterhelfen?

Mit freundlichem Gruß
BIAX

 

Hallo!

Mit einer Formel kommst du in diesem Fall leider nicht weiter, da diese ja immer akualisiert wird.
Für deinen Fall brauchst du eine Makro-Lösung, aber dafür müsstest du deinen Tabellenaufbau etwas präziser beschreiben.
Wo steht was?
Was passiert wann wo?

 

Guten Morgen Schatzi, :lol:

ich versuche mein Vorhaben nochmal genauer zu erklären:

Ich möchte in einer Zelle, nehmen wir I10, den Status "erl." oder "i.A." eintragen. Abhängig von diesem Status soll in der nächsten Zelle J10 das aktuelle Datum feststehend (bei Status "erl.") oder das fortlaufende Datum (bei Status "i.A.") angezeigt werden. Diese Werte der Zelle J10 verwende ich dann weiter für einen Zeitstrahl der fortläuft (bei
Status "i.A.") und nach Erledigung der Aufgabe (wenn Status "erl." eingetragen wird) anhält und stehen bleibt.
Die Datumseingabe beim Status "erl." soll nicht mit Hand eingegeben werden, da ich diese Zelle sperren möchte um Manipulationen zu vermeiden.

Die genauen Zellenbezeichnungen kenne ich noch nicht alle da ich diese Funktion öfter in der Tabelle verwenden möchte, das Ganze kann man aber bestimmt auch auf andere Zellen übertragen, oder?

Ich hatte die Sache auch soweit hinbekommen, finde aber keine Funktion oder Möglichkeit ein aktuelles, feststehendes Datum zu generieren (wie mit der Tastenkombination Steuerung und .)

Ich denke ich habs jetzt besser beschrieben. Dass ich kein Excel Experte bin habt Ihr sicher schon bemerkt.

Ich habe auch in einem anderen Forum diese Frage gestellt und hoffe dass das nicht negativ aufgefasst wird.

Biax

 

Hallo!

Ich hoffe, ich hab's jetzt verstanden.
Rechtsklicke den Tabellenreiter des Tabellenblatts uns wähle "Code anzeigen".
Füge diesen Code ins Codefenster rechts ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "i.A." And Target.Offset(0, 1) = "" Then _
Target.Offset(0, 1).Formula = "=TODAY()"
If Target = "erl." And (Target.Offset(0, 1).HasFormula _
Or Target.Offset(0, 1) = "") Then Target.Offset(0, 1) = Date
End Sub

Trägst du nun in irgendeine Zelle "i.A." ein und die Zelle rechts daneben ist leer, dann erhält dieses Zelle die Formel =HEUTE().
Trägst du in irgendeine Zelle "erl." ein und die Zelle rechts daneben ist leer oder enthält eine Formel, so wird das aktuelle Datum eingetragen.

 

Nicht schlecht,

die Sache hat aber noch den Haken das es beim geschützten Blatt nicht funktioniert (Zellen mit Datum sind auch geschützt).


Biax

 

Hallo!

Dann lässt du das Makro kurzzeitig den Blattschutz aufheben (Blattname und Passwort musst du anpassen):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "i.A." And Target.Offset(0, 1) = "" Then
Sheets("Tabelle1").Unprotect "Hallo"
Target.Offset(0, 1).Formula = "=TODAY()"
Sheets("Tabelle1").Protect "Hallo"
End If
If Target = "erl." And (Target.Offset(0, 1).HasFormula Or Target.Offset(0, 1) = "") Then
Sheets("Tabelle1").Unprotect "Hallo"
Target.Offset(0, 1) = Date
Sheets("Tabelle1").Protect "Hallo"
End If
End Sub

 

Jetzt bringt er folgende Fehlermeldung:

Index außerhalb des gültigen Bereichs (Fehler 9)

mfg


Biax

 

Das klingt sehr nach falschem Blattnamen...

 

elleweil hats do!!!!!!

Man, endlich funktioniert der Mi... Vielen Dank. Echt Klasse, ohne dich wäre ich aufgeschmissen gewesen.

Ich hätte da noch ne Frage, aber die Stelle ich in einem neun Tread damit andere Sie auch unterm Thema finden können.

Vielen Dank
Biax