Worksheet_Change(ByVal Target As Excel.R
19.10.2020 20:26:48
Tom
ich möchte die beiden Events zusammenführen. Wie soll ich das am besten machen?
Danke
Gruß Tom
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 11 Then
If Target.Value = "" Then
Target.Offset(0, 53) = ""
Else
Target.Offset(0, 53) = Date
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 13 Then
If Target.Value = FF Or TB Then
Target.Offset(0, 54) = ""
Else
Target.Offset(0, 54) = Date
End If
End If
End Sub