Hallo Ulle,
also im Makro in dem Bereich
Range("K10").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("K5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("L5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("M5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("N5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("O5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("P5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("Q5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("R5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("S5").Value
Range("T6").End(xlToLeft).Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = ActiveSheet.Range("T5").Value
kopierst Du nur die Werte, nicht aber die Formate der Zellen. Du dürftest dort nicht mit dem Gleichheitszeichen, also
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0) = ActiveSheet.Range("K5").Valuesondern Du musst auch hier richtig kopieren und einfügen. Also
ActiveSheet.Range("K5").Copy
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0).PasteSpecial Paste:=xlPasteAll
Außerdem musst Du dann die Zeile
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _in
Cells(ActiveCell.Row + 1, ActiveCell.Column + 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
ändern, also Paste:=xlValues in Paste:=xlPasteAll, damit auch hier die Formate mit eingefügt werden.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]