Worksheet_Change Problem mit doppeltem Namen

Hallo,
ich habe ein Problem und würde mich über etwas Hilfe sehr freuen da ich jetzt schon Stunden im Internet lese und rumprobiere und es leider selbst nicht hinbekomme. Ich habe 2 Worksheet_Change Makros mit leicht unterschiedlichen Angaben und ich habe auch beide einzeln schon zum laufen bekommen aber sobald ich beide aktivieren möchte kommt aufgrund der gleichen Namen immer ein Fehler und ich habe es bis jetzt nicht geschafft die beiden zusammenzufügen.
Wäre sehr dankbar wenn mir jemand dabei helfen könnte, da ich in Excel und VBA noch nicht so gut bin.
Hier mal die 2 getrennten Makros:

Sub Worksheet_Change(ByVal target As Range)
Set target = Intersect(target, Range("C:G,I:I,K:M"))
If target Is Nothing Then Exit Sub
Cells(target.Row, 15) = Now
Set target = Nothing
End Sub

Sub Worksheet_Change(ByVal target As Range)
Set target = Intersect(target, Range("H:H,J:J"))
If target Is Nothing Then Exit Sub
Cells(target.Row, 14) = Now
Cells(target.Row, 15) = ""
Set target = Nothing
End Sub

LG
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…und folglich ist auch nur eine EreignisProzedur auf dem betroffenen Blatt möglich, Matthias!
Würdest du mal ins Archiv schauen, würdest du das Thema x-mal finden, auch, was man stattdessen machen muss/kann:
1. Alles in die eine Prozedur integrieren und dabei die unterschiedlichen Aktionen davon abhängig machen, in welchem Bereich sich Target befindet, was man u.a. mit der vbFkt Intersect feststellen kann.
2. Eines der anderen beiden …_Change-Ereignisse nutzen: Workbook_SheetChange bzw das vorbereitete, aber erst noch anzulegende Application_WorkbookChange, was idR und sicher auch in diesem Fall reine Verschwendung wäre, wenn es nur für ein Blatt einer Mappe gelten soll.
Gruß, Luc :-?
Besser informiert mit …

Sub Worksheet_Change(ByVal Target As Range) Const adRelBer1$ = "H:H,J:J", adRelBer2$ = "C:G,I:I,K:M" With Application .EnableEvents = False If Not Intersect(Target, Me.Range(adRelBer1)) Is Nothing Then Me.Cells(Target.Row, 14) = Now ElseIf Not Intersect(Target, Me.Range(adRelBer2)) Is Nothing Then Me.Cells(Target.Row, 15) = Now End If .EnableEvents = True End With Set target = Nothing End Sub

Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errExit If Intersect(Target, Range("H:M")) Is Nothing Then Exit Sub Application.EnableEvents = False Select Case Target.Column Case 8, 10: Cells(Target.Row, 15) = Now Case Else: Cells(Target.Row, 15) = "": Cells(Target.Row, 14) = Now End Select errExit: If Err.Number 0 Then Err.Clear Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_Change Problem mit doppeltem Namen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet_Change Problem mit doppeltem Namen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread