AW: Wie jetzt
01.09.2005 14:05:23
Harald
Also ich verschieden Möglichkeiten mal aufgezeichnet und bei allen !! hat er die Formatierung übernommen.
Sub Makro2()
' Makro2 Makro
' Makro am 01.09.2005 von Harald E aufgezeichnet
' Übernahme per Formatpinsel
Rows("26:26").Select
Selection.Copy
Rows("29:29").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Sub Makro3()
' Makro3 Makro
' Makro am 01.09.2005 von Harald E aufgezeichnet
'per Strg + C sowie Strg + X
Rows("32:32").Select
Selection.Copy
Rows("36:36").Select
ActiveSheet.Paste
Rows("32:32").Select
Application.CutCopyMode = False
Selection.Cut
Rows("41:41").Select
ActiveSheet.Paste
End Sub
Gruß
Harald