Office: Makro aktives Blatt

Hallo Forum,

ist es möglich und wenn ja wie, dass das unten stehende Makro immer auf dem zur Zeit aktiven Blatt ausgeführt wird. Da die Blätter in der Mappe erst via Makro erzeugt werden und meist unterschiedliche Namen haben, kann ich es nicht ins Blatt kopieren damit es wie z.Z. funktioniert.
Noch eine Frage dazu, wo muss ich was ändern, damit nach Eintrag in Spalte O die Zeit in Spalte P angezeigt wird?


_______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'mehr als 1 Zelle ausgewählt
If Target.Column 1 Then Exit Sub 'nicht Spalte A
Application.EnableEvents = False
Target.Offset(0, 1) = Format(Now, "hh:mm")
Application.EnableEvents = True
End Sub
________________________________________________________________

LG Max

:)

 

Moin,

ungeprüft ...

Code:

 

Hallo Max,

nimm das (ähnlich heißende) Change-Ereignis auf Ebene des Workbooks: https://msdn.microsoft.com/DE-DE/lib.../ff196611.aspx
Das gehört ins automatisch angelegte (Klassen-)Modul "DieseArbeitsmappe"

Code:

heißt: Was auch immer tu tust: Sobald mehr als eine Zelle geändert wird, steigt das Makro aus. Weißt Du, wie häufig komplette Bereich geändert werden? Das soll dann nicht registriert werden?

Grüße
EarlFred

 

Hallo GMG-CC,

funktioniert leider nicht.
Ich habe den Code in ein Modul kopiert, war das so richtig.

LG Max

 

Nein: Tabellenblattreiter rechtsklicken, Code anzeigen, dort einfügen (Ereignisse kommen ins Klassenmodul, nicht ins allgemeine). Falls das Blatt neu sein wird: Entweder von einem ansonsten leeren Vorlageblatt mit dem Ereignis kopieren, oder Nepomuks "Code erzeugt Code" verwenden, siehe zusammenzusetzender Link hier: Code:

Außerdem heißt es richtig Target.Cells.Count statt Target.Count

 

Hallo an alle die geantwortet haben,

dass bekomme ich leider alles nicht hin, ich hätte vielleicht dazuschreiben sollen der Code ist nicht von mir, soweit reichen meine Kentnisse nicht.
Ich habe zwar ein Blatt kopiervorlage von wo die Formatierung und usw auf die neu erzeugten Blätter kopiert wird, aber wie ich das Makro in die neuen Blätter bekomme weiss ich nicht. Daher dachte ich, dass man den Code so ändern kann für das z.Z aktive Blatt.

trotzdem Dank an Euch

LG Max

 

Habe ich doch gerade beschrieben. Du hast ein Blatt als Kopiervorlage inklusive Ereignismakros - diese bleiben Dir nach dem Kopieren und Ausfüllen erhalten.