Codeanpassung
11.12.2008 13:22:06
Ernst
möchte diesen Code gerne ändern so das in den Spalten 2,6,10 die Zellen Adressen erst ab 2,B5..6b5..10b5 angesprochen werden .
wäre für Lösungsvorschläge dankbar.
Lg.Ernst
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10 Then
Target.Value = Format(Date, "dd.mm.yyyy")
ElseIf Target.Column = 3 Or Target.Column = 7 Or Target.Column = 11 Then
UserForm1.Show
End If
End Sub