Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Änderungsdatum

Änderungsdatum
01.12.2020 13:44:24
Mio
Hallo Team
Ich habe ein Tabellenblatt und möchte nach jeder Änderung in diesem in einer Spalte die Datume der letzten 5 Änderungen auf einen Blick sehen.
Geht so was ?
Also wann das Blatt z.b gestern , am 5.Okt , am 4.Sept usw bearbeitet (= mit neuen Daten gespeichert wurde) , soll das in z.b der Spalte F beginnend mit F1 angezeigt werden, die letzten 5 Speicherdatume.
Besten Dank für Euren Support!
lg
Mio

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum
01.12.2020 14:56:03
Nepumuk
Hallo Mio,
in das Modul "DieseArbeitsmappe":
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
    With Worksheets("Tabelle1") 'Tabellennamen anpassen !!!
        
        If IsEmpty(.Cells(5, 6).Value) Then
            
            If IsEmpty(.Cells(1, 6).Value) Then
                
                .Cells(1, 6).Value = Date
                
            Else
                
                .Cells(.Rows.Count, 6).End(xlUp).Offset(1, 0).Value = Date
                
            End If
        Else
            
            Call .Cells(1, 6).Delete(Shift:=xlShiftUp)
            .Cells(5, 6).Value = Date
            
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
Sorry, nicht aktualisiert owT
01.12.2020 15:05:48
worti
AW: Änderungsdatum
01.12.2020 15:04:29
worti
Hallo Mio,
füge in das Modul "DieseArbeitsmappe" folgenden Code ein: 
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim ws As Worksheet
Dim lngLast As Long
Set ws = ThisWorkbook.Worksheets("Info")
lngLast = IIf(ws.Cells(1, 6) = "", 1, ws.Cells(Rows.Count, 6).End(xlUp).Row + 1)
ws.Cells(lngLast, 6).Value = ThisWorkbook.BuiltinDocumentProperties("Last Save Time").Value
If lngLast > 5 Then
ws.Cells(1, 6).Delete xlUp
End If
Set ws = Nothing
End Sub

In dem Blatt"Info wird dann in Spalte 6 das Gewünschte gespeichert.
Gruß
Worti
Anzeige
AW: Änderungsdatum
01.12.2020 22:33:03
Mio
Danke funktioniert!
VG
Mio
AW: Änderungsdatum
01.12.2020 22:33:34
Mio
Danke!
VG Mio

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige