[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