Makroanpassung !
08.06.2009 09:13:31
Ernst
Wie müsste der fett markierte Bereich geändert werden um das Datum erst ab der Range:("b8:b105,f8:f105,j8:j105") zu aktivieren
wäre für lösungsvorschläge dankbar.
lg.Ernst
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
Dim zelle As Long
If Target.Row > 4 And (Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10) _
Then
Application.EnableEvents = False
With Target
NumberFormat = "dd.mm.yyyy"
.Value = Date
End With
Application.EnableEvents = True
For i = 5 To 247
zelle = Sheets("Archiv").Cells(i, Columns.Count).End(xlToLeft).Column + 1
If Sheets("Archiv").Cells(i, 1) = Cells(Target.Row, Target.Column).Offset(0, -1). _
Value Then
Sheets("Archiv").Cells(i, zelle) = Cells(Target.Row, Target.Column).Value
End If
Next
Cancel = True
ElseIf Not Intersect(Target, Range("C8:C105,G8:G105,K8:K105")) Is Nothing Then
UserForm1.Show
Cancel = True
End If
End Sub