Office: (Office 2007) Zeitstempel

Helfe beim Thema Zeitstempel in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo ! Ich habe in einem Arbeitsblatt eine VBA eingefügt um einen Zeitstempel zu setzen. Wenn ich die Werte in den entsprechenden Zellen direkt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Michael-1967, 19. Juli 2022.

  1. Zeitstempel


    Hallo !
    Ich habe in einem Arbeitsblatt eine VBA eingefügt um einen Zeitstempel zu setzen.
    Wenn ich die Werte in den entsprechenden Zellen direkt ändere, wird der Zeitstempel korrekt erstellt.
    Die Werte in meiner Tabelle werden aber aus einem anderen Tabellenblatt mit der Zählenwenn-Funktion aktualisiert, und dann ändert sich der Zeitstempel nicht wie gewünscht.
    Hat jemand eine Lösung für mein Problem ?
     
    Michael-1967, 19. Juli 2022
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    Du hast Change Ereignis benmutzt was faksch ist. Es ist
    Private Sub Worksheet_Calculate()
    Was aufwendig ist, auf meiner Seite unter Bilder ist ein Beispiel.

    Zeitstempel GrußformelZeitstempel Homepage
     
    Hajo_Zi, 19. Juli 2022
    #2
  3. Hallo Hajo,danke für deine Antwort.
    Leider habe ich nicht die meiste Ahnung von excel, ich musste mich schon durchkämpfen bis ich gefunden hatte, das man den Zeitstempel mit einem Makro erzeugen kann.
    Ich habe folgenden Code in das Tabellenblatt eingefügt, könntest du mir sagen was ich verändern muß ?

    Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 20180830
    Dim xCellColumn As Integer
    Dim xTimeColumn As Integer
    Dim xRow, xCol As Integer
    Dim xDPRg, xRg As Range
    xCellColumn = 7
    xTimeColumn = 8
    xRow = Target.Row
    xCol = Target.Column
    If Target.Text <> "" Then
    If xCol = xCellColumn Then
    Cells(xRow, xTimeColumn) = Now()
    Else
    On Error Resume Next
    Set xDPRg = Target.Dependents
    For Each xRg In xDPRg
    If xRg.Column = xCellColumn Then
    Cells(xRg.Row, xTimeColumn) = Now()
    End If
    Next
    End If
    End If
    End Sub
     
    Michael-1967, 19. Juli 2022
    #3
  4. d'r Bastler
    d'r Bastler hat Ahnung

    Zeitstempel

    Hallo Michael,
    vergiss mal die (hier eigentlich nicht erlaubte) Werbung von hajo.
    1. Du kannst manuell einen Zeitstempel erzeugen, indem Du in einer Zelle strg+. (Punkt) bzw. strg+: (Doppelpunkt) eingibst. ergibt [Datum][Zeit]
    2. per VBA genügt:
    Code:
    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveCell = Now() 'anpassen!
    End Sub
    Ergibt [Datum Zeit] Wenn Du jetzt viele #### siehst, zieh die Spalte einfach etwas breiter.

    Grüße
     
    d'r Bastler, 19. Juli 2022
    #4
  5. d'r Bastler
    d'r Bastler hat Ahnung
    @hajo: liest Du, was Du postest??
     
    d'r Bastler, 19. Juli 2022
    #5
  6. ralf_b hat Ahnung
    naja, aber die betreffende Zelle, auf die der Zeitstempel reagieren soll, wird durch eine Berechnung aktualisiert. Und da hat Hajo schon Recht mit seinem Hinweis auf Calculate.
     
    ralf_b, 19. Juli 2022
    #6
  7. d'r Bastler
    d'r Bastler hat Ahnung
    Moin Ralf,
    beide Events sorgen für ein Update...
    Gruß
     
    d'r Bastler, 19. Juli 2022
    #7
  8. {Boris} hat Ahnung

    Zeitstempel

    Hi,

    ich bin nicht oft Hajos Meinung, aber hier hat er Recht. Und Selection_Change ist hier nun wirklich nicht angebracht - schon gar nicht mit Eintrag in der aktiven Zelle... ;-)
     
    {Boris}, 20. Juli 2022
    #8
Thema:

Zeitstempel

Die Seite wird geladen...
  1. Zeitstempel - Similar Threads - Zeitstempel

  2. Zeitstempel mit Kontrollkästchen einfügen

    in Microsoft Excel Hilfe
    Zeitstempel mit Kontrollkästchen einfügen: Hallo, ich benötige Eure Hilfe. Ich erstelle gerade eine Bewertungsmatrix bei der einzelne Punkte mit einem Kontrollkästchen abgehakt werden wenn der Prüfling es erledigt hat. Dazu habe ich in...
  3. Excel jede Zeile Zeitstempel

    in Microsoft Excel Hilfe
    Excel jede Zeile Zeitstempel: Hallo Zusammen, da ich nicht wirklich was passendes für mich gefunden habe wende ich mich hier mal mit meinem Problem an euch. Bitte verzeiht mir wenn ich die Frage irgendwo übersehen habe. Ich...
  4. Zeitstempel automatisch einfügen

    in Microsoft Excel Hilfe
    Zeitstempel automatisch einfügen: Hallo, ich brauche Eure Hilfe. In meiner Excel-Tabelle habe ich zwei Tabellenblätter. Nun würde ich gerne, wenn Blatt1 geändert wird, das Änderungsdatum in Blatt2 Zeile H1 einfügen. Kann mir da...
  5. Scannen mit Zeitstempel und ergänzen dieser bei erneutem Scan

    in Microsoft Excel Hilfe
    Scannen mit Zeitstempel und ergänzen dieser bei erneutem Scan: Hallo ich möchte in einem Excel Arbeitsblatt mit Scanner Barcodes (nummerisch) erfassen. Dies soll "ohne Userkontrolle" funktionieren, weshalb nur Spalte A Freigegeben ist und das restl. Blatt...
  6. Zeitstempel aus Stoppuhr bei Notizen

    in Microsoft Word Hilfe
    Zeitstempel aus Stoppuhr bei Notizen: Moin, lange gesucht und nichts gefunden, deshalb hier der Versuch: Ich will bei meinen Notizen einen Zeitstempel haben, der sich nicht an der eigentlich Zeit orintiert, sondern an einer Stoppuhr....
  7. Zeitstempel bei Dateien in MS Teams

    in Microsoft Teams Hilfe
    Zeitstempel bei Dateien in MS Teams: In unserer Teams Installation stimmt der Zeitstempel hinter den Dateien nicht, wenn diese geändert werden. Dieser ist ca. 10 Stunden versetzt. Wo holt Teams diese Zeit her? Die Einstellung der...
  8. Übertragen von Spalten mit Zeitstempel bei bestimmten Kriterien

    in Microsoft Excel Hilfe
    Übertragen von Spalten mit Zeitstempel bei bestimmten Kriterien: Hallo und frohes neues Jahr, ich versuche gerade ein Ausbildungsformular zu erstellen, welches später entsprechend gefiltert werden soll. Und zwar gibt es das erste Tabellenblatt...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden