Bitte Formel ergänzen
22.08.2006 16:53:35
Josef
Möchte mit unten stehender Formel, folgendes erreichen:
Wenn ich in einer Zelle in Spalte 19 Doppelklicke, soll neben dem Datum und der Zeit, der Text "Annahme" stehen. Wenn ich den Doppelklick in Spalte 20 mache, soll dort neben dem Datum und Zeit, der Text "Ausgabe stehen.
Kann mir bitte jemand dabei behilflich sein?
Die zweite IF und .Value-Zeilen habe ich hinzugefügt, um besser erklären zu können, was ich meine.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 19 Then
'If Target.Column = 20 Then
Cancel = True
With ActiveCell
.Value = Format(Now, "dd/mm/yy hh:mm") & " Annahme"
'.Value = Format(Now, "dd/mm/yy hh:mm") & " Ausgabe"
End With
End If
End Sub
Danke schon mal
Gruss Josef