With Worksheets("Kalender").Range("A1;L32") = Worksheets("Kalender").Cells = "bytMonth"
Habe wirklich noch nicht groß mit VBA gearbeitet bis auf jetzt für den Kalender also bitte ich höflichst um Verzeihung falls Anfängerfehler aufdrehten.Aber würde mich wirklich sehr freuen wenn mir jemand helfen kann.Denn ich will das Projekt zuende bringen und nicht jetzt wo so viel reininvestiert wurde an Zeit einstampfen. :(
https://www.herber.de/bbs/user/88437.xlsm