Clever-Excel-Forum

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.... Blush

Für eine Antwort vielen Dank im Voraus.

Gruß
Christian

hallo

Bitte lade die Datei auf dem schönen Bild Hoch, anstatt dem Bild!

Kein Problem

Hallo Christian,

bitte hänge dich nicht mit eigenen Problemen an bestehende Threads an; auch wenn das Thema ähnlich ist. Bitte generell ein neues Thema eröffnen.

Hallo Günter,

vielen Dank für den Hinweis.

Gruß
Christian

Moin!
In G1: =WENN(F1=G$2;C$2;"")
bis G7 herunterziehen.

Gruß Ralf

Hallo Ralf,

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.

Gruß
Christian

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.

In den Codebereich des Tabellenblatt..

Code:
Sub worksheet_activate()

last = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row

For i = 1 To last

        If Cells(i, 6).Value < Cells(2, 1).Value Then Cells(i, 7).Value = Cells(2, 3).Value

Next

End Sub

Hallo
hier von mir auch ein Vorschlag

Code:
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

Das Code im Tabellenblatt1 einfügen, siehe Anhang

[attachment=20816]

Sobald Änderung oder doppelklick in A1:C2

Gruss perostojkov

christian r.

Frogger1986

christian r.

WillWissen

christian r.

RPP63

christian r.

WillWissen

Frogger1986

perostojkov