hi,
Format übertragen geht ja mit rechtsklick Kopieren, rechtsklick Einfügeoptionen: Formatierung, per Makro dann zB
Range("A1").Copy Range("A2").PasteSpecial Paste:=xlPasteFormats
VG, Stefan