Clever-Excel-Forum

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

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

DANKE

KS20

Crazy Tom

KS20