Hallo Excelfreunde!

Ich hab mir vor einiger Zeit schon mal helfen lassen. Schnallgonz war damals mein treuer Helfer. Mit dem Ergebnis war ich sehr zufrieden. Jetzt hab ich aber ein Problem mit der Datei. Ich habe 2 Rechner mit dem gleichen Betriebssystem und beide mit Office 2003. Auf dem einen funktioniert das ganze einwandfrei, aber auf dem anderen auf einmal nicht mehr. (es hat aber auch dort schon funktioniert!) Kann mir jemand helfen woran das liegt?
Zur Beschreibung: Ich möchte nach Spalte B alles außer 6 Zeilen Überschrift sortieren. Die Sortierreihenfolge soll aber von 05:30 Uhr bis 05:30 des nächsten Tages sein. Dafür gibt es einen Button "KeineÄnderung". Nach Eingabe der Uhrzeit in Spalte B wird immer automatisch das Datum (Jahreszahl wird nicht angezeigt, aber mit aufgenommen) dazugeschrieben, ohne das es extra eingegeben werden muss. Durch Klick auf den Button "KeineÄnderung" kann ich eine eventuell notwendige Änderung an der Zeit vornehmen (wird zu "Änderung")

Sub DatumKeineÄnderung()
Sheets("Schalter").Cells(1, 1).Value = 1
End Sub

Sub DatumÄndern()
Sheets("Schalter").Cells(1, 1).Value = 0
End Sub

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "KeineÄnderung"
DatumKeineÄnderung
Else
TB.Caption = "Ändern"
DatumÄndern
End If
End Sub

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'falls SpalteA aktiv und Zelle "A1" im Blatt "Schalter" = 1
If Target.Column = 2 And Worksheets("Schalter").Cells(1, 1).Value = 1 Then
'Format setzen
Cells(Target.Row, 2).NumberFormat = "dd/mm/ hh:mm"
'aktuelles Datum zur Eingabe = Uhrzeit hinzu
Cells(Target.Row, 2) = Date & " " & Cells(Target.Row, 2)
'Zelle "A1" im Blatt "Schalter" auf 0, um Zelle zu bestätigen
Worksheets("Schalter").Cells(1, 1).Value = 0
'Focus zurück zur Startzelle; erforderlich, weil
'Markierung nach Eingabe nach unten verschoben wird = Standard
ActiveCell.Offset(-1, 0).Activate
'jetzt Eingabe bestätigen
SendKeys "{F2}", True
SendKeys "{ENTER}", True
'Zelle "A1" im Blatt "Schalter" auf 1 zurückstellen
Worksheets("Schalter").Cells(1, 1).Value = 1
End If
Application.EnableEvents = True
End Sub

Wie gesagt Code klappt auf dem einen Rechner einwandfrei und auf dem anderen plötzlich nicht mehr, obwohl es auf beiden die gleiche Datei ist! Dummerweise ist das gerade der Rechner auf dem die Datei im Einsatz ist.
Das Sortieren klappt auf beiden einwandfrei, aber auf dem bösen Rechner schreibt er eben nicht das Datum von heute, sondern von 1900 und damit sortiert er ja falsch.
Hat jemand eine Idee, woran das liegt.

Vielen Dank in Voraus.
Petra