AW: Zellformat beim kopieren behalten
WernerB.
Hallo Martina,
genau genommen kopierst Du nicht, sondern machst eine Wertzuweisung.
"Echtes" Kopieren könnte so aussehen (ungetestet!):
Sub Martina1()
Worksheets("Daten").Cells(x, 21).Copy _
Destination:=Worksheets("Zeit").Cells(a, 4)
Application.CutCopyMode = False
End Sub
Sub Martina2()
Worksheets("Daten").Cells(x, 21).Copy
With Worksheets("Zeit").Cells(a, 4)
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub
Viel Erfolg wünscht
WernerB.