VBA-Code aus Excel 2013 in 2010 nicht kompatibel
03.06.2015 17:33:06
Christoph
ich habe ein kleines Problem. Folgender VBA-Code wurde in Excel 2013 erstellt, ist aber in 2010 nicht kompatibel. Beide Versionen sind Professional.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Not Intersect(Range("J10:J1000"), Target) Is Nothing Then
ActiveSheet.Unprotect "heute"
Target.Offset(0, 1).Value = Date
ActiveSheet.Protect "heute"
Else
If Not Intersect(Target, Range("Z10:Z100")) Is Nothing Then
ActiveSheet.Unprotect "heute"
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
ActiveSheet.Protect "heute"
If Intersect(Target, Range("Z10:Z101")) 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, -12).Value
.Range("C" & Z) = Target.Offset(0, -21).Value
End With
ActiveSheet.Protect "heute"
End If
End If
End Sub
Bin leider noch recht unversiert in der Geschichte. Für euch wahrscheinlich ein Klacks.
Danke schonmal im Voraus.
Christoph