Supportnet / Forum / Tabellenkalkulation
Wertübertragung bei Datumsänderung.
Frage
Hallo,
ich habe folgendes Problem : ich möchte auf Bezug
der täglichen Datumsänderung, daß ein Betrag von A1
(Bestand heute) zu B1(Bestand gestern) gleichgesetz
wird.
Gruß Carl
Antwort 1 von rolandaa
hallo,
schreibe in zelle E1 - =heute()
speichert das datum in zelle F1 beim verlassen,
und beim öffne wird überprüft ob sich das datum geändert hat und wenn ja soll er den Wert von Zelle A1 in B1 übertragen.
Sub auto_open()
If Range("E1").Value <> Range("F1").Value Then
Range("B1").Value = Range("A1").Value
End If
End Sub
Sub auto_close()
Range("E1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
mfg
roland
schreibe in zelle E1 - =heute()
speichert das datum in zelle F1 beim verlassen,
und beim öffne wird überprüft ob sich das datum geändert hat und wenn ja soll er den Wert von Zelle A1 in B1 übertragen.
Sub auto_open()
If Range("E1").Value <> Range("F1").Value Then
Range("B1").Value = Range("A1").Value
End If
End Sub
Sub auto_close()
Range("E1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
mfg
roland
Antwort 2 von carlcox
Hat super funktioniert.
Vielen Dank
Carl
Vielen Dank
Carl