Hallo Sven,
nachfolgenden Code ersetze gegen Deinen Alten. Das wäre mal zum 1. Test eine Möglichkeit.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Value = "" Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = ""
End With
Target.Offset(0, 4).Value = ""
Else
'Einfahrzeit in Spalte F
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intAbfrage As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Offset(0, 3) <> "" And Target.Offset(0, 4) = "" Then
intAbfrage = MsgBox("Soll die Abfahrzeit für dieses Fahrzeug gesetzt werden?", _
vbQuestion + vbYesNo, "Abfahrzeit setzen?")
If intAbfrage = 7 Then Exit Sub
'Ausfahrzeit in Spalte G
With Target.Offset(0, 4)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub Ich hoffe, wir kommen der Sache langsam näher?
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
