Ich brauche wieder mal eure Hilfe.
ich würde gerne in Spalte B die Uhrzeit eingetragen haben, wann in Spalte C ein Wert eingeben wird.
Soll als Betriebsdatenerfassung dienen. Diese wäre dann die Startuhrzeit. Kann mir jemand helfen?
Gruß
Sven
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fail
If Not Intersect(Target, Range("C10:C25")) Is Nothing Then
If Target "" Then
Target.Offset(0, -1) = Time
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
End If
End If: Exit Sub
Fail:
MsgBox "Bitte nur eine Zelle markieren"
End Sub
hier mal im Bild dargestellt:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fail
If Not Intersect(Target, Range("D6:D30")) Is Nothing Then
If Target "" Then
If Target.Offset(0, -1) = "" Then
Target.Offset(0, -1) = Time
End If
End If
End If: Exit Sub
Fail:
MsgBox "Bitte nur eine Zelle markieren"
End Sub
Hab noch ein paar Sachen geändert ;-)
Hier mal ein Beispiel.
https://www.herber.de/bbs/user/45268.xls
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen