2 Makros zusammenführen
15.05.2015 15:35:56
Christoph
ich habe 2 Makros. Das eine gibt Datumsangaben zu Zelländerungen aus und das andere die Anzahl der Zelländerung (Bezugs- und Ergebnisfelder sind jeweils verschieden).
Beide sollten in einem Excel-Sheet funktionieren, bekomme es aber nicht hin diese zu verbinden.
Makro1
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "passwort"
If Intersect(Range("J10:J1000"), Target) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Date
ActiveSheet.Protect "passwort"
End Sub
Makro2Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "passwort"
If Not Intersect(Target, Range("Y11:Y100")) Is Nothing And Target.Count = 1 Then _
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
ActiveSheet.Protect "passwort"
End Sub
Bin leider noch nicht besonders bewandert in VBA. Vielen Dank für eure Hilfe im Voraus.
Christoph