Wenn schon VBA, dann so....
Paula
Hi Kersten,
versuchs mal hiermit:
die jeweilige Tabelle im VBA-Editor doppelt anklicken und dort diesen Code eingeben
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 8 Or Target.Column = 12 Or Target.Column = 27 Then
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Date
End If
End If
End Sub
Solltest du dennoch mit Tabellenfunktionen (Beisp. "=heute()" ),bedenke dass
bei erneutem Öffnen der Datei alle Datumszellen das aktuelle Datum erhalten.
Um das zu verhindern, doppelklicke im VBA-Editor im Objektfenster das Objekt
"DieseArbeitsmappe" und füge im Codefenster folgenden Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i
'Spalte I
For i = 1 To ThisWorkbook.Worksheets("Tabelle1").Range("I65536").Cells.End(xlUp).Row
If Cells(i, 9).Formula = "=TODAY()" Then 'wenn Zellformel = "heute()" dann...
Cells(i, 9).Value = Cells(i, 9).Value 'Umwandlung Formel zu Abs. Wert
End If
Next i
'Spalte M
For i = 1 To ThisWorkbook.Worksheets("Tabelle1").Range("M65536").Cells.End(xlUp).Row
If Cells(i, 13).Formula = "=TODAY()" Then 'wenn Zellformel = "heute()" dann...
Cells(i, 13).Value = Cells(i, 13).Value 'Umwandlung Formel zu Abs. Wert
End If
Next i
'Spalte AB
For i = 1 To ThisWorkbook.Worksheets("Tabelle1").Range("AB65536").Cells.End(xlUp).Row
If Cells(i, 28).Formula = "=TODAY()" Then 'wenn Zellformel = "heute()" dann...
Cells(i, 28).Value = Cells(i, 28).Value 'Umwandlung Formel zu Abs. Wert
End If
Next i
End Sub
Viel Spass
Paula