Excel 2010 erstelltes Makro verhindert Rückgängig

[wakeboarder]

Hallo,

ich hoffe Ihr könnt mir helfen mit meinem Makro. Leider habe ich selbst davon nur sehr begrenzte Kenntnisse

Folgendes Makro habe ich geschrieben

Private Sub Worksheet_Activate()
Dim lRow As Long
Application.EnableEvents = False
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:Z" & lRow).Copy Destination:=Range("BA1")
Range("BA1:BZ" & lRow).Value = Range("BA1:BZ" & lRow).Value
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
If Intersect(Target, Range("A:Z")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rC In Target.Cells
Range("AA" & rC.Row) = Now() ' Zeit
Next rC
Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 36 Then
If Not IsEmpty(Target.Cells(1, 1)) Then
Cancel = True
Range(Target.Cells(1, 1).Text).Activate
End If
End If
End Sub


Kurz gesagt: Wenn ich etwas in einer Zeile ändere, soll in der Zeile in der Spalte AA das letzte Änderungsdatum geschrieben werden.

Diese Makro verhindert allerdings das ich, wenn ich etwas in der Zeile ändere, dies ggf. wieder Rückgängig machen kann.

Kennt jemand dazu eine Lösung?

Vielen Dank!

 

[Knufu]

Befehle bzw Aktionen die per Macro ausgeführt werden können nicht per "Undo"-Button rückgängig gemacht werden.

 

[wakeboarder]

Das ist ja nicht so schön. Gibt es eine "normale" Excel Formel mit der ich das Makro ersetzen könnten ( wenn sich etwas in Zeile 1 verändert dann Datum von heute)?

 

[Knufu]

Ad hoc, ja gibt es ... Beispieltabelle?
Was willst du genau erreichen?

 

[wakeboarder]

Muss sowas sein wie: =Wenn(A1:Z1 -> sich ändert;heute();"")

 

[Knufu]

Richtig.
Genauer kann dir aber erst geholfen werden, wenn du konkrete Beispiele nennst..

 

[wakeboarder]

Zelle A1: Hallo
Zelle A2: wie
Zelle A3: geht
Zelle A4: es
Zelle A5: dir

Zelle A6: letztes Datum der Änderung einer Zelle zwischen A1 und A5

Wenn ich heute A5 zu "Ihnen" ändere soll automatisch in Zelle A6: 26.05.2014
Wenn ich morgen A3 zu "gehts" ändere und A4 lösche soll automatisch in Zelle A6: 27.05.2014

Danke für deine Hilfe!

 

[GMG-CC]

Moin,

ich schätze mal, dass dir das weiter hilft: Range("AA" & rC.Row) = CStr(Now()) ' Zeit