Wenn Auswahl aus Dropdownliste dann Datum setzten bis zur nächsten Änderung

[italianX]

Hallo Leute,
wie ihr seht bin ich neu hier.
Ich werde in Zukunft mehr mit Excel arbeiten müssen(beruflich und privat).
Nach langem googeln hab ich leider die Lösung für mein Problem nicht lösen können.
Also hier meine Frage:
Wenn ich z.b. in B7 ( C7, D7 usw.) eine Dropdownliste mit Zahlen erstelle, möchte ich das in B8 (C8,D8 usw.)
das aktuelle Datum erscheint.
Bis dahin hab ich es geschafft.
Ich möchte aber das das Datum solange gleich bleibt bis ich  in paar Tage,Wochen,Monate wieder eine andere Auswahl an Zahl (in der Dropdownliste) in B7 (oder C7,D7 usw.) treffe.

Wie stelle ich das an?
Muss man da irgenwie ein Code eingeben?(VBA) Wenn ja wie?

Anbei die excel Datei.
Ich danke Euch im Vorraus.

[RPP63]

Moin und willkommen im Forum!

Nach langem googeln hab ich leider …

Dann hast Du nicht richtig gesucht. ;)
Das Stichwort lautet Datumstempel.
Ist so ziemlich die häufigste Anfrage im Bereich Excel-VBA.
Schaue mal hier:
http://www.at-exceltraining.de/index.php...ragen.html

Statt des verwendeten Now (für Datum/Zeit) nimmst Du Date (für das Datum).

Gruß Ralf

[RPP63]

Noch ein Hinweis:
Das statische aktuelle Datum kannst Du auch ohne VBA mittels Strg+. (Punkt) in die aktive Zelle schreiben.

[italianX]

Danke für die Info.Sobald ich Zeit hab werde ich mich hinsetzen und Ausprobieren.Danke


PS:Wegen googeln:Hab wahrscheinlich nicht die richtigen Suchbegriffe eingegeben. : :19: Hab aber echt lange gesucht..

[WillWissen]

Hi,

das Forum hat auch eine Suchfunktion.
Schau dir mal diese Beiträge an:

http://www.clever-excel-forum.de/Thread-...e-stempeln
http://www.clever-excel-forum.de/Thread-...eglichkeit

[italianX]

HAllo Jungs Danke für eure Hilfe hab es geschafft aber nicht mit dem was ihr mir gezeigt habt,aber durch euch habe ich den richtigen VBA-Code gefunden und für mich
angepasst.



Private Sub Worksheet_Change(ByVal Target As Range)
 
Select Case Target.Address
    Case "$B$17": Range("B18") = Now()
End Select

Select Case Target.Address
    Case "$C$17": Range("C18") = Now()
End Select
 
 Select Case Target.Address
    Case "$D$17": Range("D18") = Now()
End Select

End Sub

--------------

Anstatt Now tue ich die Zelle formatieren sodass ich nur das Datum sehe.


Danke, Danke,Danke

[schauan]

Hallöchen,

Du verwendest Select Case wie If. Besser wäre es so:

Code:

Select Case Target.Address
    Case "$B$17": Range("B18") = Now()
    Case "$C$17": Range("C18") = Now()
    Case "$D$17": Range("D18") = Now()
End Select

[italianX]

Hi schauan hab ich dann auch so gemacht.Danke