|
Hallo,
ich habe folgendes Anliegen: Ich möchte die Zellen B12:B18 aus Tabellenblatt X täglich, nach Aktualisierung der Daten, in das Tabellenblatt Y kopieren. Das Tabellenblatt Y hat in den Zellen B8:AF8 für jeden Tag die Zahlen 1 bis 31 stehen. Ist heute der 1. sollen die Werte also in die Zellen B9:B15 kopiert werden, ist heute der 2. in die Zellen C9:C15, usw.
Handelt es sich um einen neuen Monat, sollen außerdem die Daten des Vormonats aus dem Bereich B9:AF15 gelöscht werden (wenn das die Sache verkompliziert kann das auch erst mal weggelassen werden, der erste Punkt hat für's erste Priorität).
Probiert habe ich es mit diesem VBA Code (bisher nur für einen Tag), allerdings passiert damit leider rein gar nichts (ich bekomme nicht mal eine Fehlermeldung):
Sub Tageswerte_kopieren()
Dim MyDate
MyDate = Date
If Day(MyDate) = Worksheets("Y").Range("B8") Then
Worksheets("X").Range("B12:B18").Copy
Worksheets("Y").Range("Y9:Y15").Paste
Else: Exit Sub
End If
End Sub
Ich verwende Excel 2016 auf einem Windows 10 System.
Vielen Dank!
|