Format per Makro übertragen
29.02.2004 18:33:56
Fabrizio
Innerhalb einer Excelseite habe ich 5 gleiche Tabellen. Tabellen 2-5 sollen jeweils exakt das Format von Tabelle 1 haben, welches ich regelmässig ändere. Dazu möchte ich gerne ein Makro aufzeichnen.
Leider sind meine bisherigen Versuche nicht gerade von Erfolg gekrönt... Mein Code:
Sub Macro6()
' Macro6 Macro
' Macro recorded 29.02.2004 by Fabrizio
ActiveCell.Offset(-7, -9).Range("A1:B24").Select
Selection.Copy
ActiveCell.Offset(0, 3).Range("A1:B24,D1:E24,G1:H24,J1:K24").Select
ActiveCell.Offset(0, 12).Range("A1").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Wer weiss Rat?? Vielen Dank,
Gruss
Fabrizio