Guten Tag,
habe im Makro dies eingebunden, da ich es vorher aufgezeichnet habe.
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Select
Application.CutCopyMode = False
Selection.Font.Bold = True 'Fett
ich möchte also von der aktiven Zelle das Format der darüberliegenden Zelle auf die
aktive u. nächste Zelle kopieren.
Dann bin ich wieder in der aktiven Zelle und die Schrift soll Fett sein.
mfg Walter mg