VBA Code Excel 2013 and Excel 2007 anpassen

Bild

Betrifft: VBA Code Excel 2013 and Excel 2007 anpassen
von: Christoph
Geschrieben am: 11.11.2015 10:01:11

Hallo liebes Forum,
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

Bild

Betrifft: AW: VBA Code Excel 2013 and Excel 2007 anpassen
von: Sepp
Geschrieben am: 11.11.2015 10:18:50
Hallo Christoph,
und was will nicht? Außer den unnötigen Doppel-Anweisungen ist daran nichts auszusetzen.

Gruß Sepp


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Code Excel 2013 and Excel 2007 anpassen"