16.11.2018, 10:19 (Dieser Beitrag wurde zuletzt bearbeitet: 16.11.2018, 17:32 von WillWissen.
Bearbeitungsgrund: Neues Thema nach Teilung eines Beitrags
)
Hallo zusammen,
dieses Thema kommt meinem Problem recht nah und wahrscheinlich stehe ich gerade komplett auf dem Schlauch. Vielleicht kann mir ja jemand von euch helfen. Wäre sehr dankbar....
Um mein Problem etwas deutlicher zu machen hier ein screenshot wie es vom Prinzip her aussieht:
[ Bild bitte so als Datei hochladen: Klick mich! ]
in Zelle A1 befindet sich immer der Montag der aktuellen Woche. In Zelle A2 das heutige Datum über =HEUTE(). In Zelle C2 befindet sich ein errechneter Wert, der sich täglich verändert. Dieser soll am 12.11. in Zelle G2, am 13.11. in Zelle G3 usw. kopiert werden, ohne dass der Wert der vergangenen Tage gelöscht wird. In den Beispieldateien der oberen Antworten habe ich leider das Makro nicht finden können....
Für eine Antwort vielen Dank im Voraus.
vielen Dank erstmal für Deine schnelle Antwort.
Leider klappt das so nicht ganz. Sobald sich das Datum ändert, erscheint dann der Wert zwar im neuen Datum, aber der Wert für das "alte" Datum wird nicht beibehalten.
16.11.2018, 18:15 (Dieser Beitrag wurde zuletzt bearbeitet: 16.11.2018, 18:15 von WillWissen.)
Hallo Christian,
da ich absolut kein VBAler bin,würde ich mir so behelfen:
1. Markieren von F1:F7
2. Daten ==> Datenüberprüfung ==> Liste ==> $C$2
3. Sobald über HEUTE() das neue Datum erreicht ist, über das DropDown den Tag festhalten
Somit ändert sich der Tag in deiner Spalte F nicht mehr.
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 3 And Target.Row <= 2 Then
For m = 1 To 7
If Sheets("Tabelle1").Cells(2, 1).Value = Sheets("Tabelle1").Cells(m, 6).Value Then
Sheets("Tabelle1").Cells(m, 7).Value = Sheets("Tabelle1").Cells(2, 3).Value
End If
Next m
End If
End Sub