ich habe folgende VBA-Codes die beide nicht funktionieren wie geplant:
Sub A_Neues_Datum_1Monat()
ActiveCell.Name = "actcll"
Range("actcll").Value = Date
ActiveCell.Offset(0, 1) = Date + 31
ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 1) - Range("K1")
End Sub
Sub B_Neues_Datum_1Monat()
ActiveCell.Name = "actcll"
Range("actcll").Value = Date
ActiveCell.Offset(0, 1) = Date + 31
ActiveCell.Offset(0, 1).Name = "offset1"
ActiveCell.Offset(0, 2).Formula = "=offset1-K1"
End Sub
Nun mein Vorhaben:
Das Programm soll aus der aktiven Zelle heraus arbeiten. In der ersten Zelle steht das jetzige Datum und soll sich nicht verändern. In der nächsten Zelle steht das jetztige Datum plus einen addierten Wert. In der dritten Zelle soll die zweite Zelle mit dem aktuellen Datum (hier in Zelle "K1") subtrahiert werden.
Das Problem an meinen Codes:
Im ersten Code wird in der dritten Zelle der Wert ausgegeben, allerdings verändert dieser sich nicht dynamisch da keine Funktion ausgegeben wird, sondern nur ein Zahlenwert.
Im zweiten Code verändert sich bei mehrmaliger Eingabe des Makros der Wert aller Eingaben, obwohl er sich nur auf die jeweilige Zeile auswirken soll.
Ich hoffe jemand hat dazu eine Lösung.
MfG Marc