Office: (Office 2013) Ein Makro für mehrere Register

Moin,

ich habe ein Makro wo Daten aus dem Register Master kopiert werden und Register, das mit einem Datum beschriftet ist.
Ich möchte in Jedem Register ein Button haben was Daten aus dem Master Register holt.
Oder vielleicht gibt es ja die Möglichkeit, das es eine MSG Box mit Auswahl des Datum von dem jeweiligen Register, das dann da die Daten reinkopiert werden.

Mein Makro sie so aus, was aber nur für den 03.03.2025 geht:

Code:

Sub Kopieren()
'
' Kopieren Makro
'

'
    Sheets("Master").Select
    ActiveWindow.SmallScroll Down:=-15
    Columns("A:Q").Select
    Selection.Copy
    Sheets("03.03.2025").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Wenn noch fragen sein sollten gerne melden.

Vielen Dank für die Mühe.

 

Hallo Hobbit,

es ist schon mal ein Fehler, für jeden Tag ein Tabellenblatt anzulegen. Die Select-Anweisung ist so überflüssig wie ein Kropf. Verzichte darauf, dann hat sich dein Problem auch schon teilweise gelöst.

 

Moin,
vielen dank für die Antwort.

Was müsste ich ändern?

MFG Jens

 

Hi,

das hat Klaus-Dieter doch schon geschrieben: verzichte auf Tagesblätter und das Problem stell erst gar nicht.

Falls du anderer Meinung bist und die Tagesblätter gegen unseren Rat beibehalten willst (viel Spaß damit!), dann elimiere Select in deinem Makro.
Warum und wie das geht kannst du z.B. bei Online - Excel Programmierung VBA Makro: Achtung Makrorekorder oder Wer selektiert denn da? nachlesen.

Spoiler

Code:

Sub Kopieren()
    Sheets("Master").Columns("A:Q").Copy
    Columns("A:A").PasteSpecial xlPasteValues
End Sub

 

Moin,

vielen Dank für die Tolle Hilfe.

MFG Jens