Private Sub Worksheet_Change
Gruß
J.- M.
If Cells(1, 1) = DateTime.Now Then
Worksheets("Tabelle1").Range("b10").Copy
With Worksheets("Tabelle1").Range("E3")
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End If
Gruss Hary
Datum festlegen: Trage in Zelle A1 das Datum ein, an dem der Zellinhalt festgehalten werden soll.
Zielzelle vorbereiten: Bestimme die Zelle, die du festhalten möchtest, beispielsweise B10.
Zielzelle definieren: Wähle die Zelle, in die der Inhalt kopiert werden soll, z.B. E3.
Ereigniszuweisung: Du musst ein Ereignis in deinem Excel-Arbeitsblatt definieren, um den Inhalt automatisch zu übertragen. Eine einfache Möglichkeit ist das Worksheet_Change-Ereignis.
VBA-Code einfügen: Öffne den VBA-Editor (Alt + F11) und füge den folgenden Code in das entsprechende Arbeitsblattmodul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value = Date Then
Worksheets("Tabelle1").Range("B10").Copy
With Worksheets("Tabelle1").Range("E3")
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End If
End SubSpeichern: Speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).
Fehler: Der Zellinhalt wird nicht kopiert.
Fehler: VBA-Code funktioniert nicht.
Wenn du keine VBA-Lösungen verwenden möchtest, kannst du den Inhalt manuell festhalten:
=WENN(A1=HEUTE();B10;"") kannst du den Zellinhalt basierend auf dem Datum anzeigen, jedoch bleibt dieser nicht dauerhaft erhalten.Worksheets("Tabelle1") änderst.Workbook_Open-Ereignis, um beim Öffnen der Datei bestimmte Zellwerte zu überprüfen und zu kopieren.1. Frage
Wie kann ich sicherstellen, dass der Inhalt auch nach Schließen von Excel erhalten bleibt?
Antwort: Stelle sicher, dass du die Datei als Makro-fähige Arbeitsmappe (.xlsm) speicherst.
2. Frage
Gibt es eine Möglichkeit, den Inhalt automatisch zu einem bestimmten Zeitpunkt zu speichern?
Antwort: Der VBA-Code ermöglicht es, den Inhalt zu einem festgelegten Datum zu kopieren. Für eine zeitgesteuerte Aktion benötigst du jedoch zusätzliche Programmierung oder externe Tools.