Zeit ändern
12.05.2003 08:02:11
Viktor
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Abfrage, Mldg, Stil, Antwort
Mldg = "Möchten Sie wirklich die Zeit ändern!"
Stil = vbYesNo
If Cells(Target.Row, Target.Column) = "" Then
Cells(Target.Row, 2).Value = Time
ElseIf Cells(Target.Row, Target.Column) <> "" Then
Abfrage = MsgBox(Mldg, Stil)
If vbYes Then
Cells(Target.Row, 2).Value = Time
End If
Else: Exit Sub
End If
End Sub