Office: (Office 2010) Mehrere leicht veränderte Makros in einer Tabelle laufen lassen

Ich habe folgendes Makro gefunden und für mich modifiziert, so dass es funktioniert. Es gibt mir in den Zellen F das aktuelle Datum an wenn ich in der entsprechenden Zelle E was eintippe.

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("E2:E524")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = Date$
End If
End Sub

Dies würde ich aber nun gerne auch noch für die entsprechenden Zellen in G, I, K, M und O haben , so dass in den jeweiligen Zellen von H, J, L, N und P das Datum erscheint.
Das ganze unter anderem Namen kopieren und mit den neuen Zellen einfügen klappt leider nicht. Vielleicht hat jemand eine Idee????

 

Hallo,

das ist ganz klar. Bei der betreffenden SUB handelt es sich um eine CALLBACK-Routine, die auf ein ausgelöstes EVENT des Excel-Applikationsfensters reagiert. Für diesen Zweck muss die Aufrufsignatur dieser Callback-Routine exakt mit den Vorgaben der Excel-Applikation übereinstimmen.

Die SUB, die deinen Anforderungen entspricht, müsste in etwa wie folgt programmiert sein. Die 1. Zeile dieser SUB (=Aufrufsignatur) darf keinesfalls geändert werden!!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E2:E524,G2:G524,I2:I524,K2:K524,M2:M524,O2:O524")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
       Target.Offset(0, 1).ClearContents
    Else
       Target.Offset(0, 1) = Date$
    End If
End Sub

 

Vielen vielen Dank Anton,

es funktioniert genauso, wie ich es haben will.

Viele Grüße
Jonas