Formel

[Michael Hacker]

Morje zusammen.
Benötige eine Formel für folgendes......

Tabelle mit 4 Spalten.
 Spalte 2 & 3 bleiben ohne Formatierung.
Wenn ich in Spalte 4 einen beliebigen Text eingebe, möchte ich, dass in Spalte 1 " automatisch" die aktuelle Uhrzeit erscheint ( ohne Datum).

HELP......... :69:

Habt ein schönes WE !!!

Gruß. Das Greenhorn

[Peter]

Hallo,

die Standardlösung ist hier eigentlich ein kleiner VBA-Code. Kopiere den folgenden Code in das Modul des entsprechenden Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("d1:d10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, -3).ClearContents
        Else:
        Target.Offset(0, -3) = CDate(Format(Now, "hh:mm"))
    End If
End Sub

Überwacht wird der Bereich von D1 bis D10 - das musst du noch anpassen.

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

Man könnte das vermutlich auch ohne VBA machen (Iteration auf 1 und eine entsprechende Wenn-Formel) aber ich würde den VBA-Code vorziehen.

[Michael Hacker]

Vielen Dank, Peter.

Werde es versuchen.
Ggf. melde ich mich noch mal.

:28: