[St4R]

Hallo Gemeinde,

Ich habe folgendes vorhaben.
Ich möchte in Exel in eine Zelle Haben (A1) in welche automatisch das Aktuelle Datum eingetragen wird, sobald in Zelle (A2) ein Wert steht.
Das gleiche auch noch mit der Uhrzeit.
Sobald in Zelle A4 ein Wert Steht, wird in Zelle A3 Die Aktuelle Zeit Eingetragen.
Diese Zeiten sollen dann Statisch sein und nur verändert werden wenn in den jeweiligen Überprüfungsfelder wieder etwas verändert wird.

Habe schon gegoogelt, aber nix passtendes gefunden. Muss wohl mit VBA gelöst werden, und das kann ich leider nicht.

Danke für eure Mühe

[eitch100]

Hi...
erstmal an alle VBA-Profis... ich habe mir das alles selbst beigebracht und ich weiß, dass das progammiertechnisch nicht ganz das Wahre ist, aber es funktioniert....

Menü Entwicklertools---Code anzeigen--- dort folgenden Code hineinkopieren...

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row = 2 And ActiveCell.Column = 1 Then
Range("A1").Value = Date
End If
If ActiveCell.Row = 4 And ActiveCell.Column = 1 Then
Range("A3").Value = Time
End If
End Sub

Datums- und Zeitformat kannst du dir dann selbst aussuchen... Immer wenn du nun in Zelle A2 oder A4 etwas änderst, wird entsprechend in A1 bzw. A3 das aktuelle System-Datum bzw. die aktuelle System-Zeit eingetragen

[VideoLord]

@eitch100

Ich hätte das zunächst ohne VBA gelöst.

Ins Feld A1
=wenn(A2="";"";heute())
A1 muss als Datum formatiert sein.

Ins Feld A3
=wenn(A4="";"";jetzt())
A3 muss als Uhrzeit formatiert sein.

Sobald nun in A2 oder A4 Änderungen vorgenommen werden, aktualisiert sich automatisch das Feld A1 oder A3 und zwar unabhängig voneinander.
Anmerkung: Das Datum und auch die Zeit ändern sich bei dieser Version leider immer beim Neuöffnen der Datei- daher wahrscheinlich unbrauchbar für dich!

LG
VideoLord

[eitch100]

Zitat von VideoLord

Sobald nun in A2 oder A4 Änderungen vorgenommen werden, aktualisiert sich automatisch das Feld A1 oder A3 und zwar unabhängig voneinander.

Aber eben nur einmal; und zwar genau dann wenn A2 oder A4 nicht leer sind. Bei weiteren Änderungen tut sich nix mehr und was noch schlimmer ist, die Werte in A1 und A2 passen sich permanent an, was ja ausdrücklich nicht erwünscht war...

In deiner Anmerkung hast du ja schon das richtige Fazit gezogen... Mit meinem Code muss man allerdings die Änderung mit Enter abschließen...

[VideoLord]

Da bin ich ja recht froh, dass du noch vor Ende deines Zitats meinen Post zu Ende gelesen hast und Ihn entsprechend bewertet und kommentiert hast.
Schein bei einigen hier im Board ein regelrechter Sport zu sein, sei es wie es ist. Spam bleibt Spam- mein Motto.

Zitat von eitch100

Aber eben nur einmal; und zwar genau dann wenn A2 oder A4 nicht leer sind. Bei weiteren Änderungen tut sich nix mehr und was noch schlimmer ist, die Werte in A1 und A2 passen sich permanent an, was ja ausdrücklich nicht erwünscht war...

In deiner Anmerkung hast du ja schon das richtige Fazit gezogen... Mit meinem Code muss man allerdings die Änderung mit Enter abschließen...

[eitch100]

Mein Motto: konstruktive Kritik und auch mal ein gutes Späßle muss drin sein... Helfen, wenn man kann oder es versucht, darf ja auch ruhig ein bisschen Spaß machen...

[St4R]

Danke euch ! Es Funktioniert. Jetzt habe ich nur das Problem, dass ich die Funktion gerne nach unten Kopiert hätte, da das Dokument nachher 500 Zeilen mit der Jeweiligen Funktion hat. Row ist die Gleiche aber Cell immer 1 höher. Möglich ?

[eitch100]

dieser Code gilt für alle in Spalte D ab Zeile 3...

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row >= 3 And ActiveCell.Column = 4 Then
On Error GoTo EndeSub
Application.EnableEvents = False
Cells(ActiveCell.Row, 2).Value = Time
Cells(ActiveCell.Row, 1).Value = Date
EndeSub:
Application.EnableEvents = True
End If
End Sub

Aber die Änderungen immer mit Enter abschließen... wenn du z.B. in D4 eine Zahl eingibst und ohne Enter den Cursor nach unten machst, ändert der Code Zeit und Datum in der falschen (nächsten) Zeile... das macht der alte Code übrigens auch so... also das mit Doppelklick ist auf jeden Fall sicherer...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Row >= 3 And ActiveCell.Column = 4 Then
Cancel = True
Cells(ActiveCell.Row, 2).Value = Time
Cells(ActiveCell.Row, 1).Value = Date
End If
End Sub

[St4R]

Wie cool, das Funktioniert !!! Danke vielmals