[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