Problem mit Zeitstempel in Excel

[Starttrail]

Hallo zusammen,

folgendes Problem:

Ich habe einen Zeitstempel in Excel gemacht. Dieser funktioniert ohne Probleme.

Wenn ich die gleiche Formel in Teams Excel verwende geht es nicht.

--> In der Desktop App öffnen kommt die Fehlermeldung --> Zirkelbezug

Muss ich in Teams etwas einstellen?

VG

[HKindler]

Hi,

wenn du einen Zirkelbezug-Fehler bekommst, dann ist dein Zeitstempel Murks.

Wie hast du den denn gemacht?

Wenn es ohne VBA sein soll, dann ist es am besten Strg-"." für das aktuelle Datum und Strg-":" für die aktuelle Uhrzeit zu benutzen und alle anderen Sperenzchen zu vergessen.

[derHoepp]

Moin,

überlege nochmal, ob du bei den Angaben in der Lage wärst, eine Antwort zu geben...

Ich habe einen Knopf für mein Auto, wenn ich das Teil in einem gelben Auto benutze, blinkt die Motorkontrollelichte. muss ich das gelbe Auto lackieren?

Viele Grüße
derHoepp

[RPP63]

Moin!
Es gibt ja die Zeitstempelformel, für die man Iteration aktivieren muss. 
Findet man auch in unserem Beispielbereich.
Könnte die Ursache sein. 

Gruß Ralf  vom Phone

[HKindler]

Hi,

Und genau diese Formel ist Murks. Ich spreche da aus leidvoller Erfahrung.
Denn irgendwann geht der Haken bei der Iteration weg(*) und dann wird keine Zeit mehr erfasst.

(*) je nachdem in welcher Reihenfolge auch noch andere Dateien geöffnet werden.

[RPP63]

Bin völlig bei Dir!
Lass das jetzt aber nicht André lesen! 

[HKindler]

Hi,

diese Erfahrung war übrigens vor vielen Jahren für mich der Grund, mit VBA anzufangen…

[schauan]

Hallöchen,

Lass das jetzt aber nicht André lesen!

stimmt. Also, Murks ist, wie vieles andere auch, bei mir situationsabhängig. Fingerhut hat auch schöne Blüten, sollte man aber nicht für Tee verwenden. Muss man halt' beachten. 

[Starttrail]

Hallo,

die Formel sieht so aus:

=WENN(A2<>"";WENN(UND(B2<>"";ZELLE("address")=ADRESSE(ZEILE(A2);SPALTE(A2)));JETZT();WENN(ZELLE("address")<>ADRESSE(ZEILE(A2);SPALTE(A2));B2;JETZT()));"")

In dem Fall wird B2 der Zeitstempel  eingetragen

[HKindler]

Hi,

so lange in den Optionen die iterative Berechnung eingeschaltet ist, wird dies funktionieren. Aber man hat halt keine echte Kontrolle darüber, da das Öffnen anderer Dateien diese Option umschalten kann.

Wenn VBA möglich ist, ist es besser darauf auszuweichen. Das könnte dann so aussehen (Code gehört ins Code-Modul des zugehörigen Blattes):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim zelle As Range
Set Bereich = Intersect(Target, Range("A:A"))
If Not Bereich Is Nothing Then
    Application.EnableEvents = False
    On Error Resume Next
    For Each zelle In Bereich
        If zelle <> "" Then
            'If zelle.Offset(, 1) = "" Then
                zelle.Offset(, 1) = Now
            'End If
        Else
            zelle.Offset(, 1).ClearContents
        End If
    Next zelle
    On Error GoTo 0
    Application.EnableEvents = True
End If
End Sub

Dieser Code protokolliert in der nächsten Spalte [Ausdruck: Zelle.Offset(, 1)] des überprüften Bereichs [Ausdruck: Intersect(Target, Range("A:A"))] das Datum der letzten Änderung. Soll das erste Ausfüllen protokolliert werden, dann das auskommentierte If..End If aktivieren.