[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]

@eitch100: Hab deine Formel angewendet, leider Funktioniert es aber nicht. Vielleicht bin ich auch einfach zu blöde um es anzupassen. Mein Datumsfeld soll A3 sein mein Uhrzeitfeld B3. Eingabefeld ist D3.

Hab deine Formel so Angepasst. Falsch ?

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

[VideoLord]

ActiveCell.Row = 3 / bedeutet die dritte Spalte also C
ActiveCell.Column = 1 / bedeutet die erste Zeile also 1
zusammen = C1

Somit kannst du dir einfach den korrekten Eingabeplatz selber zuordnen, für beide deiner Anweisungen, also Zeit und Datum.

[St4R]

Also ich hab das jetzt lange ausprobiert aber irgendwie funzt das nicht. Da kommt Laufzeitfehler und Exel Absturz.

[Erebos76]

Na so ein Mist aber auch. Das Change-Ereignis wird natürlich auch dann ausgelöst, wenn Datum oder Zeit in eine Zelle geschrieben werden. So entsteht hier eine endlose Ereignisauslösung.

[VideoLord]

Probier mal das hier, ansonsten läuft der eingestellte Code immer in einer Schleife, die Excel zum Absturz bringen.

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

Ausgabezellen:
A3 = Datum
B3 = Uhrzeit

Eingabefeld:
D3 = Eingabe

[eitch100]

Zitat von VideoLord

ActiveCell.Row = 3 / bedeutet die dritte Spalte also C
ActiveCell.Column = 1 / bedeutet die erste Zeile also 1
zusammen = C1

natürlich genau andersrum... aber war wohl ein Versehen...
row=ZEILE=3
column=SPALTE=1
zusammen=A3

Zitat von St4R

@eitch100: Hab deine Formel angewendet, leider Funktioniert es aber nicht. Vielleicht bin ich auch einfach zu blöde um es anzupassen. Mein Datumsfeld soll A3 sein mein Uhrzeitfeld B3. Eingabefeld ist D3.

Mein obiger Code funktioniert natürlich nur für die in deinem Start-Post gewünschte Einstellungen... (und da gibt auch keinen Laufzeitfehler bzw. Endlosschleife)

Zitat von VideoLord

Probier mal das hier, ansonsten läuft der eingestellte Code immer in einer Schleife, die Excel zum Absturz bringen.

Jupp... so funzt es... vermutlich gibt es ohne die Fehlerroutine einen Absturz, weil sich der Wert für "Time" während der Laufzeit natürlich ändert und Excel es nicht auf die Reihe bekommt...

Man könnte sich höchstens eine If-Bedingung schenken... und die Fehlerroutine sollte man in die If-Anweisung integrieren, sonst führt er diese bei jedem Change-Ereignis aus...

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

Edit: Hier noch eine andere Möglichkeit... einfach über Doppelklick auf D3... (natürlich alten Code vorher löschen...)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Row = 3 And ActiveCell.Column = 4 Then
Cancel = True
Range("B3").Value = Time
Range("A3").Value = Date
End If
End Sub

[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