VBA - VBA Timestamp

[Lenni11]

Hallo ins Forum,

ich möchte in einer Excel-Tabelle folgendes ergänzen:

Wird in einer Zelle einer Spalte (Bspw. Spalte D) ein Wert (Name) eingetragen, dann soll in einer bestimmten Zelle in einem zweiten Tabellenblatt die aktuelle Uhrzeit eingetragen werden. Da dieser Wert dann fix drin stehen bleiben muss, fällt eine entsprechende Wenn-Dann-Funktion aus.
Dieses muss dann für viele Zellen innerhalb derselben Spalte funktionieren.

Gefunden habe ich bis jetzt nur entsprechende Codes die eine fixe Target-Zelle ansteuern oder eine Range. Dies (Range) funktionierte bei mir dann immer nur genau einmal. Bei einem zweiten eingetragenen Wert ging es schon nicht mehr.

Kann mir da jemand behilflich sein?

[Werner.M]

Hallo,

so:

PHP-Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
    'bei Eintrag in obigen Bereich Datum/Uhrzeit ins Blatt 2
    'gleiche Zeile, Spalte B, wird der Eintrag in Spalte D
    'wieder entfernt bleibt der Zeitstempel in Blatt 2
    Worksheets("Tabelle2").Cells(Target.Row, 2) = Now
    'soll der Zeitstempel wieder entfernt werden wenn der Eintrag in Spalte D
    'wieder entfernt wird, dann statt obiger Codezeile die untere verwenden
    'Worksheets("Tabelle2").Cells(Target.Row, 2) = IIf(Target <> "", Now, "")
End If
End Sub 


Der Code gehört ins Codemodul des Tabellenblattes, auf dem die Spalte D auf Eingaben überwacht werden soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.

Gruß Werner

[Beverly]

Hi,

und wie sieht denn dein Code aus?

---

[Lenni11]

Wow, das ging schnell. Und sie funktioniert auch genau so wie es sein soll.
Danke schon mal dafür.

Mir liegt nun die Tabelle vor und ich wurde instruiert, von wo nach wo dieser Timestamp laufen soll. Da ich leider keine Kenntnisse zu VBA besitze, tue ich mich mit der entsprechenden Modifizierung schwer. Oft klappt das bei einfachen (für mich) Skripten, hier scheitere ich aber.

Auf der zweiten Seite "EL Abstimmung" in Spalte X kommt ein Vermerk neben "1.Tor" aus Spalte W. Alle anderen Zellen sind hierfür uninteressant.
Wenn dort dann ein Vermerk drin steht, dann soll im Tabellenblatt "FV-Verladung" ab Zeile 64 in Spalte F der Timestamp rein.

Ich habe dazu mal die Tabelle in Bildform angehängt in der Hoffnung, das ersichtlich wird was ich meine. Die gesamte Datei möchte ich nicht hochladen.

Ist das so in der Form machbar?

[Lenni11]

Ich hatte bis dato nur so etwas finden können:

'Private Sub Worksheet_Change
If Target.Address = Range("C34") Then
With Sheets("Tabelle2").Range("B2")
.Value = Now()
.NumberFormat = "hh:mm"
End With
End If
'End Sub

[Lenni11]

Hab das Problem jetzt mit einem Workaround gelöst.
Falls meine Vorstellung dennoch sauber ohne Umweg programmiert werden kann, bin ich gerne für Tipps offen.
Danke an Werner für den Code!

[MisterBurns]

Zitat:

bin ich gerne für Tipps offen

Dann lass dir mal den Tipp geben, nächstes Mal eine Beispielmappe anstelle eines Bildes hochzuladen. Deine bunten Bildchen sind hübsch aber vollkommen nutzlos, wenn man damit arbeiten möchte.