Office: Zeitstempel VBA - Spaltenreferenz verschoben?

Hallo zusammen,

ich habe ein Problem mit meinem VBA Code und bin nicht versiert genug, ihn alleine zu reparieren:

Der Code ist wie folgt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If .Column = 33 Or .Column = 36 Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd/mm/yy hh:mm"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

Irgendwas habe ich gemacht, was die Spalten, in die der Zeitstempel (bei Änderung in der nebenstehenden Zelle) eingetragen wird.
Derzeit wird der Zeitstempel in Spalte AI (35) (wenn etwas in AH (34) geändert wird) und in AJ (36) (wenn AI (35) geändert wird) eingetragen.

Korrekt wäre:
Zeitstempel in AH (wenn Änderung in AG)
Zeitstempel in AK (wenn Änderung in AJ)


Weiß nicht ob es relevant ist, aber ich benutze eine Englische Excel Version.
Danke schon mal für die Hilfe.

J

 

Hallo!

Genau das macht auch der Code, den du gepostet hast!
Wenn er das bei dir nicht tut, dann liegt das Problem woanders.

 

Er tut es nicht.... sonst hätte ich es ja nicht gepostet. Wo kann es denn bloss noch liegen?

 

Hallo!

Teste den Code mal in einer neuen und leeren Mappe.
Dort sollte er funktionieren.

 

Jap. Das funktioniert richtig.

 

Das hilft mir jetzt aber leider nicht weiter, dass er in einer anderen Datei funktioniert. Wo kann ich denn bloß suchen? Ich habe keine Ahnung warum sich die Spaltenreferenz verschiebt?!

 

Hi,

dann solltest du vielleicht mal deine Mappe hochladen - Ferndiagnosen sind in dem Fall nicht möglich, wenn der Code in eine anderen Mappe funktioniert.

Bis später,
Karin