1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel - Zellinhalt an bestimmten Tag in andere Zelle verschieben

Discussion in 'Office-Programme' started by Sonoma, Jan 4, 2009.

Thread Status:
Not open for further replies.
  1. Sonoma

    Sonoma Byte

    Hallo,

    ich suche eine Lösung für folgendes Problem:

    A 1 enthält beim öffnen der Datei das tagesaktuelle Datum

    A 2 enthält das Datum 01.01.2009

    D 1 enthält den Wert 1.600

    D 2 enthält den Wert 1.000


    Der Wert in D 1 soll jeweils beim Jahreswechsel nach D 2 kopiert werden und dabei den alten Wert ersetzen.

    Der Wert in D 2 soll bis dahin nicht verändert werden.

    Ist es möglich, den Inhalt einer Zelle zu einem bestimmten Zeitpunkt in eine andere zu verschieben, und gleichzeitig an alter Stelle zu löschen?

    Danke für Eure Antworten.

    Grüße und ein gutes neues Jahr - Wolfgang

    WIN XP SP 3 - Office 2007
     
    Sonoma, Jan 4, 2009
    #1
  2. Beverly

    Beverly Halbes Megabyte

    Hi Wolfgang,

    versuche es mal so:
    Code:
    Private Sub Workbook_Open()
    With Worksheets("Tabelle1")  '<== Tabellenname anpassen
        If Year(.Range("A2")) < Year(.Range("A1")) Then
            .Range("D2") = .Range("D1")
            .Range("D1").ClearContents
        End If
    End With
End Sub
     
    Beverly, Jan 5, 2009
    #2
  3. Sonoma

    Sonoma Byte

    Hallo Beverly,

    danke für Dein Makro. Hat super funktioniert.

    Alles Gute fürs neue Jahr.

    Liebe Grüße - Wolfgang
     
    Sonoma, Jan 5, 2009
    #3
Thread Status:
Not open for further replies.

Share This Page