Herbers Excel-Forum - das Archiv

aktuelle Uhrzeit "fest" eintragen

Bild

Betrifft: aktuelle Uhrzeit "fest" eintragen
von: Sebastian

Geschrieben am: 17.03.2005 12:20:32
hallo,
excel soll in Zelle A1 die aktuelle Zeit eintragen, wenn Zelle B1 einen Wert ungleich Null beträgt; also wenn ein Wert in Zelle B1 eingetragen wird. Für die nächste Zeile (A2,B2) soll das Gleiche geschehen, usw...
Über den "jetzt()"-Befehl funktioniert dies ja auch soweit, allerdings wird dadurch auch die Uhrzeit in Zelle A1 mit aktualisiert, wenn sich die Werte in anderen Zellen ändern.
Mit "Strg+Shift+Punkt" ist dies ja möglich, allerdings solle es automatisch passieren...
Hat da evtl. jemand eine Lösung?
Bild

Betrifft: AW: aktuelle Uhrzeit "fest" eintragen
von: Matthias G
Geschrieben am: 17.03.2005 12:24:26
Hallo Sebastian,
stehen in B1, B2 usw. Formeln oder werden direkt Werte eingegeben?
Gruß Matthias
Bild

Betrifft: AW: Wenn direkt...
von: Matthias G

Geschrieben am: 17.03.2005 12:28:59
Hallo Sebastian,
..., dann ins Tabellenblattmodul:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, b As Range
Set b = Intersect(Target, Range("B:B"))
If Not b Is Nothing Then
For Each z In b
If z.Value <> 0 Then
b.Offset(0, -1).Value = Now()
End If
Next z
End If
End Sub
Gruß Matthias
Bild

Betrifft: AW: Wenn direkt...
von: Sebastian
Geschrieben am: 17.03.2005 13:00:31
VIELEN Dank Matthias....
Funktioniert genauso wie ich mir das vorgestellt habe!
Bild

Betrifft: AW: aktuelle Uhrzeit "fest" eintragen
von: Sebastian

Geschrieben am: 17.03.2005 12:31:13
In die B-Spalte werden zu unbestimmten Zeiten Werte eingetragen (keine Formeln, nur Text, Kommentare).Drückt man dann Enter soll in der A-Spalte die Uhrzeit automatisch eingefügt werden zu dem Zeitpunkt, an dem man Enter gedrückt hat.
Im Prinzip funktioniert es genauso wie mit dem Hotkey "Strg+Umschalt+Punkt"; nur muss das Ganze automatisch passieren...
Bild

Betrifft: dann siehe oben - o.T.
von: Matthias G
Geschrieben am: 17.03.2005 12:32:11
-
 Bild
Excel-Beispiele zum Thema "aktuelle Uhrzeit "fest" eintragen"
Aktuellen Dateipfad aktualisieren Arbeitsmappe mit dem Namen des aktuellen Datums öffnen
Addition bis zum aktuellen Datum Aktueller Arbeitsblattname in Formel
Zur Zelle mit aktuellem Datum scrollen Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Bei Eintrag in Spalte A aktuelle Zeile kopieren Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen Daten der aktuellen Zeile im Kontextmenü anzeigen