09.03.2018, 22:49
Hallo,
habe folgende Formel in meiner Tabelle hinterlegt:
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Worksheets("Tabelle1").Unprotect "123"
Application.ScreenUpdating = False
If Not (Intersect(Range("B:B"), Target) Is Nothing) Then Target.Offset(0, -1) = Now()
Application.ScreenUpdating = True
ThisWorkbook.Worksheets("Tabelle1").Protect "123"
End Sub
Nun soll hier aber auch noch folgendes eingebaut werden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
Vorlageöffnen
End Sub
Ich weiß bloß nicht wo und wie. Kann mir da jemand helfen? Wäre Super.
Vielen Dank im Voraus.
LG.
Peggy
habe folgende Formel in meiner Tabelle hinterlegt:
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Worksheets("Tabelle1").Unprotect "123"
Application.ScreenUpdating = False
If Not (Intersect(Range("B:B"), Target) Is Nothing) Then Target.Offset(0, -1) = Now()
Application.ScreenUpdating = True
ThisWorkbook.Worksheets("Tabelle1").Protect "123"
End Sub
Nun soll hier aber auch noch folgendes eingebaut werden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
Vorlageöffnen
End Sub
Ich weiß bloß nicht wo und wie. Kann mir da jemand helfen? Wäre Super.
Vielen Dank im Voraus.
LG.
Peggy