VBA-Code von den Objekten in ein Modul
06.05.2020 16:05:28
den
ich habe ein kleines Problem.
Ich habe eine Excelmappe, in der ich per Knopfdruck verschiedene Blätter mit VBA erzeuge.
Jetzt sollen genau auf diese Blätter bei einem Eintrag in eine bestimmte Spalte, Datum und Name des Users vermerkt werden. Wenn ich den Code in dem Blatt/ Objekt selbst einfüge, funktioniert das auch wunderbar.
Aber da ich die Blätter ja per VBA erzeugen lasse, habe ich das Problem, dass ich ja da nicht automatisch das Makro mit rein bekomme (ich weiß, es gibt eine Möglichkeit per Makro ein Makro einzufügen, aber da bei uns die Sicherheitsbestimmungen sehr hoch ist, ist es uns nicht erlaubt im Trust Center dies spezifisch zu erlauben). Darum hatte ich gehofft, dass ich dies evtl. in einem Modul unter bringen könnte. Zur Not würde es auch in "Diese Arbeitsmappe" gehen. Bisher schlugen meine Versuche fehl. Der ursprüngliche Code lautet:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
If Not Intersect(Target, Columns(29)) Is Nothing Then
If Target.Cells(1) "" Then
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Columns(29)) Is Nothing Then
rngZelle.Offset(0, 51) = Environ("username") & ": " & _
Format(Now(), "dd/mm/yyyy hh:mm:ss")
If rngZelle.Offset(0, 50) = "" Then rngZelle.Offset(0, 50) = _
Environ("username") & ": " & Format(Now(), "dd/mm/yyyy hh:mm:ss")
End If
Next rngZelle
Application.EnableEvents = True
End If
End If
End Sub
Ich hatte gehofft, dass Ihr mir ein wenig auf die Sprünge helfen könnt.
Wobei...hmm zur Not könnte ich evtl. auch ein leeres Blatt ausgeblendet mit dem Makro hinterlegen und dann statt das Blatt neu zu erzeugen, das verborgene Blatt kopieren - da kopiert es doch auch das Makro mit.
Was meint Ihr dazu?
Könnt Ihr mir für die ein oder andere Version einen Rat geben?
Liebe Grüße
Anja