ich habe ein kleines Problem mit folgendem VBA Code. In excel 2013 und 2010 funktioniert er perfekt aber in 2007 will er leider noch nicht.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z As Long
If Target.Count = 1 Then
If Not Intersect(Range("I11:I1000"), Target) Is Nothing Then
ActiveSheet.Unprotect "heute"
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Application.EnableEvents = True
ActiveSheet.Protect "heute"
Else
If Not Intersect(Target, Range("W11:W1000")) Is Nothing Then
ActiveSheet.Unprotect "heute"
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
ActiveSheet.Protect "heute"
If Intersect(Target, Range("W11:W1000")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "heute"
With Sheets("CustomerVisits")
Z = .Range("G1")
.Range("G1") = .Range("G1") + 1
.Range("A" & Z) = Target.Value
.Range("B" & Z) = Target.Offset(0, -18).Value
.Range("C" & Z) = Target.Offset(0, -20).Value
End With
Application.EnableEvents = True
ActiveSheet.Protect "heute"
End If
End If
End If
End Sub
Da meine Excel-Kenntnisse noch etwas bescheiden sind muss ich hier mal wieder um Hilfe bitten. Vielen Dank im Voraus!
LG,
Christoph