• Du schaust Dir das Forum gerade als Gast an! Die Anmeldung ist KOSTENLOS!


    -Nutzung des Privaten Mailsystems
    - Nutzung der kostenlosen APP für Android und Apple, mit der möglichkeit Bilder hochzuladen welche in Deutschland auf einem Server liegen (Datensicherheit)
    - Im Chat mit anderen aktiven Usern aus der Region in Kontakt treten
    - Handel betreiben und wie bei Ebay bewertungen hinterlassen
    - wir sind eine Community welche nicht anonym ist wie Facebook und Co. :-)
    .....was sonst noch? Finde es heraus und werde Mitglied.....

    .Darum melde Dich an! Einfach hier klicken zum Anmelden!

    Wenn Du Probleme bei der Anmeldung hast, oder Fragen haben solltest klicke bitte hier!.

    Dein Team des noch größten, für den Raum Düren, Jülich, Rureifel, Aachen und Köln noch aktive Verkaufs, Tausch und Hilfeforum!

Excel Formel Problem

S

Shinski

Persönlich bekannt
Persönlich bekannt
Zockerclub
Über 18 Jahre alt!
Bräuchte mal kurz eure Expertise. Ich habe ein kleines Problem mit einer Excel Formel
=WENN(C5<>"";JETZT();"")
Folgende Formel soll bei Eingabe in der Zelle C5 die Uhrzeit des Moments der Eingabe reinschreiben. Funktioniert soweit auch ganz gut. Nur wenn ich jetzt in der nächsten Zeile eine eingabe mache wo ebenfalls die Uhrzeit des Moments eingegeben werden, wird bei allen vorher gemachten Eingaben ebenfalls die Uhrzeit geändert.

MfG
Kai
 
AW: Excel Formel Problem

ich hab joschys beitrag jetzt nicht gelesen, kann dir auch keine lösung geben aber mir fällt aus meiner excel zeit folgendes eins

wenn du zellenbezüge mit JETZT machst, dann wird die uhrzeit bei jeder aktuallisierung geändert. würdest du jetzt abspeichern, schließen und wieder öffnen, so wird die uhrzeit höchste wahrscheinlich auch wieder geändert.

ich hoffe das hilft dir weiter. du musst eine andere formel finden. die meisten, die die zeit betreffen sind bei excel fortlaufend.
 
AW: Excel Formel Problem

Am sichersten geht es mit einem Makro (mit Alt+F11 im VBA-Editor einfügen, Quelle: siehe Kommentare):

Code: 
Option Explicit                                                     ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 05.11.07                                       *
    '* erstellt von HajoZiplies@web.de                *
    '* http://Hajo-Excel.de/                          *
    '**************************************************
    ' wird im definierten Bereich ein Wert geändert, wird in der nächsten freien Spalte das Datum und Uhrzeit eingetragen
    Dim RaBereich As Range                                          ' Variable fü überwachten Bereich
    Dim RaZelle As Range                                            ' Variable für Zelle die zur Zeit bearbeitet wird
    Dim LoLetzte As Integer                                         ' Variable für letzte Spalte
    Set RaBereich = Range("B15:B32, D33:D39")                       ' Bereich der Wirksamkeit
    'ActiveSheet.Unprotect
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))     ' prüfen ob veränderte Zelle im überwachten Bereich
    If RaBereich Is Nothing Then Exit Sub                           ' keine Zelle im überwachten Bereich
    Application.EnableEvents = False                                ' Reaktion auf Eingabe abschalten
    Application.ScreenUpdating = False                              ' Bildschirm abschalten
    For Each RaZelle In RaBereich                                   ' Schleife über alle veränderten Zellen im überwachten Bereich
        ' letzte belegte Spalte, unabhängig von Excelversion
        LoLetzte = IIf(IsEmpty(Cells(Range(RaZelle.Address).Row, Columns.Count)), Cells(Range(RaZelle.Address).Row, Columns.Count).End(xlToLeft).Column, Columns.Count)
        If LoLetzte + RaZelle.Column > Columns.Count Then
            MsgBox " Keine Spalte mehr frei in Zeile " & RaZelle.Column
        Else
            If LoLetzte <= RaZelle.Column Then LoLetzte = RaZelle.Column
            LoLetzte = LoLetzte - RaZelle.Column + 1
            RaZelle.Offset(0, LoLetzte) = Now
            RaZelle.Offset(0, LoLetzte).NumberFormat = "dd/mm/yy hh:mm"
            RaZelle.Offset(0, LoLetzte).EntireColumn.AutoFit
        End If
    Next RaZelle
    'ActiveSheet.protect
    Application.ScreenUpdating = True                               ' Bildschirm einschalten
    Application.EnableEvents = True                                 ' Reaktion auf Eingabe einschalten
    Set RaBereich = Nothing                                         ' Variable leeren
End Sub
Es geht auch mit einer Formel, die einen Zirkelbezug enthält, wenn du in den Berechnungsoptionen Iteration aktivierst:
Code: 
=WENN(C5<>"";WENN(D5<>"";D5;"geändert: " & TEXT(JETZT();"hh:mm:ss"));"")
wobei D5 die Zelle ist, wo die Zeit drin stehen soll.
 
Du musst dich einloggen oder registrieren, um hier zu antworten.
Zurück
Oben