Code lernen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
‚Wenn nicht  Selectierte Zeile befindet sich im bereich (Bereich(H2:H200),Ziel) als nichts dann
If Not Intersect(Range("H2:H200"), Target) Is Nothing Then
‚Abbrechen = Wahr
Cancel = True
‚Ziel =Speicher(Ziel ="x", "", "x")
Target = IIf(Target = "x", "", "x")
‚Ziel.Vesetzen(0,1).Wert=Speicher(Ziel.versetzten(0,1).Wert““,““Datum)
Target.Offset(0, 1).Value = IIf(Target.Offset(0, 1).Value  "", "", Date)
End If
End Sub