Sub Makro1()
Sheets("Monatszahl").Select
Range("C6:H13").Select
Application.CutCopyMode = False
Selection.Copy
Vielen Dank im voraus!
Sub Makro1()
Dim aktMon As Integer
aktMon = Format(Date, "mm")
Sheets(aktMon & "").Range("C6:H13").Copy
Sheets("anderesBlatt").PasteSpecial
End Sub
Versuche Select zu vermeiden.
Grüße
Hoffi