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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen