|
Guten Tag,
Ich bin ein absoluter Laie in der VBA Programmierung, benötige es jedoch für die Arbeit.
Ich habe eine Tabelle "Fehlerliste" in welcher ich Fehler aufliste.
Damit ich eine Übersicht habe, wann wekcher Fehler aufgelistet worden, bzw. verändert worden ist, möchte ich nun einen automatischen Zeitstempel integrieren.
Dazu habe ich folgendes Programm gefunden im Netz:
Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColum As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 6
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-MM-yyyy,hh:mm:ss"
End If
Next
Application.EnableEvents = True
End If
End Sub
Leider funktioniert das nicht ganz so wie ich mir das vorstelle.
Ich habe das Makro mal umbenannt, damit ich weiss was es ist. Jedoch kriege ich nun einen Error, wenn ich versuche das Makro abzuspielen. Dieser heisst Laufzeitfehler "424" Objekt erforderlich. Die unten fett markierte Zeile wird gelb markiert, wenn ich auf Debuggen klicke.
Mein Makro sieht nun so aus:
Sub Date_Time_Änderung(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColum As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 6
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-MM-yyyy,hh:mm:ss"
End If
Next
Application.EnableEvents = True
End If
End Sub
Kann mir da mal jemand weiterhelfen?
Leider habe ich zu wenig Knowledge um mir da selbst was zusammenzustellen. :(
Vielen Dank
|