mehrer Makros in einen Reiter

[KS20]

Ich möchte in meinem ersten Reiter 2 Makros zum laufen bekommen.
Allein funktionieren beide prima, nur bekomm ich die nicht in einen Reiter zusammen zum laufen!

die Makros:

1) automatisches Datum erzeugen und nicht aktualisieren

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
  If Target.Value <> "" Then
     Target.Offset(0, 1).Value = Date
  Else
     Target.Offset(0, 1).ClearContents
  End If
End Sub

2) Dropdown vergleichen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
Set rng = Range("ad9:as999")
If Not Intersect(rng, Target) Is Nothing Then
    Application.EnableEvents = False
    Target(1, 1).Value = WorksheetFunction.VLookup(Target(1, 1).Value, Tabelle3.Range("a2:b33"), 2, 0)
   
End If
errmsg:
On Error GoTo 0
Application.EnableEvents = True
End Sub


Danke euch

[Crazy Tom]

Hi
ohne deine Codes zu testen...!
zwei Worksheet_Change könnte man z.B. so kombinieren

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
       MsgBox "mach dies"
   ElseIf Not Intersect(Target, Range("ad9:as999")) Is Nothing Then
       MsgBox "mach das"
   End If
End Sub

MfG Tom

[KS20]

DANKE