Mein Ziel ist es zwecks "Wiederherstellung" der Formate in das Blatt "wksAltFormat die ursprüngliche Formatierung des aktiven Blattes (wksKalender)abspeichere. Die Sicherung soll bei den verschiedensten Vorgängen (Am liebsten wäre mir eine UDF, oder für in Workbook.SheetCange) zu verwenden.
In diesen (meinem) Fall verwende ich es in einer Userform mit bereits vordefiniertem Bereichen "(strBereich)"
wksKalender.Range(strBereich).Copy
wksAltFormat(strBereich).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Hat jemand vielleicht einen Tipp, oder auch nur eine fertige Lösung, denn ich wurde leider diesbezüglich nicht fündig.
vielen Dank im voraus
Gruß Lorenz