Office: (Office 2010) Datum Einfügen

Ich möchte das Datum per DoubleClick einfügen. Mit der Formel geht es:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$5" Then
Target = Date
Cancel = True
End If
End Sub

Ich möchte es aber auf die Zellen B5 - OM5 erweitern. Wie muss ich es umschreiben?

 

Hallo

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rngBereich As Range
    Set rngBereich = Range("B5:OM5")
    If Not Intersect(Target, rngBereich) Is Nothing Then
        Cancel = True
        Target.Value = Date
    End If
End Sub

MfG Tom

 

Hola,

zur Info:

http://ms-office-forum.net/forum/showthread.php?t=351193

Gruß,
steve1da

 

Strg . (Punkt)