Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Code Änderung bei Bedingung

VBA Code Änderung bei Bedingung
07.05.2024 05:42:07
Christian
Guten Morgen zusammen.

Ich benötige bitte Eure Hilfe zu einer Excel Tabelle.
Es wird wenn ein Wert in D7 eingetragen wird, ein Zeitstempel in F7 gesetzt. Dieser Zeitstempel soll nur bei Auswahl 1 oder 2 (D7) eingetragen werden.
Sobald der Wert in Zelle D7 auf 3 geändert wird, soll ein neuer Zeitstempel in G7 erscheinen. Der erste Zeitstempel in F7 soll behalten werden.
So erkennt man wann ein Lieferant aufs Gelände gefahren ist und wann er von der jeweiligen Abteilung entladen und weggeschickt wurde.

https://www.herber.de/bbs/user/169301.xlsm

Vielen Dank für Eure Hilfe!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code Änderung bei Bedingung
07.05.2024 06:43:03
ralf_b
If Target = 3 Then

Target.Offset(, 3) = Now
Else
Target.Offset(, 2) = IIf(Len(Target) > 0, Now, "")
End If
AW: VBA Code Änderung bei Bedingung
07.05.2024 06:46:29
Christian
Vielen Dank.

Leider ändert sich jetzt zusätzlich die Ankuftszeit mit auf die neue Zeit :)
Aber das ist schon die richtige Richtug.

VIELEN DANK!
Anzeige
AW: VBA Code Änderung bei Bedingung
07.05.2024 06:45:05
Onur
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D7:D50")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = 1 Or Target = 2 Then Target.Offset(, 2) = Now
If Target = 3 Then Target.Offset(, 3) = Now
End Sub
Anzeige
AW: VBA Code Änderung bei Bedingung
07.05.2024 06:47:31
Onur
IIf(Len(Target) > 0

setzt auch bei einer 4 das Datum (oder bei Micky Maus)
AW: VBA Code Änderung bei Bedingung
07.05.2024 06:46:58
Christian
Vielen Dank.

Das macht was es soll :) TOP.
Gerne !
07.05.2024 06:48:38
Onur
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige