Datumseingabe ohne Änderung
12.01.2019 11:41:02
Tim
ich stehe vor folgendem Problem.
Ich habe mir eine kleine Datei geschrieben, in dessen Bestände vermerkt sind, so eine Art "Inventurliste"
Das besondere ist eigentlich nur, dass jeder Artikel nur einen Bestand von 1 besitzt.
Ich möchte eine Artikelnummer eingeben, der Bestand verringert sich dementsprechen (klappt auch), allerdings soll sich der Zeitstempel in der Spalte H eintragen.
Dazu habe ich folgendes zusammengeschustert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M4:M100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = Entnommen Then
Cells(Target.Row, 8).ClearContents
Else:
Cells(Target.Row, 8).Value = Date & " - " & Time
End If
End Sub
Dazu besteht jetzt folgendes Problem:
- der Bestand verringert sich in der entsprechenden Zeile in Spalte I.
- dazu habe ich eine WENN-Formel in M laufen, die angeben soll, dass bei Bestand 0 "entnehmen" anzeigen soll.
- Leider klappt der Zeitstempel nur, wenn ich eine Eingabe händisch einfüge, nicht durch die WENN-Formel.
Hab alles mögliche probiert, allerdings bin ich nicht zum Erfolg gekommen.
Habt ihr Tipps? Vielen Dank.