Zellformate mitkopieren
19.05.2019 12:05:34
Anja
Ich möchte gerne ein Blankoblatt unter ein Datenblatt kopieren, sobald dieses mit Daten gefüllt wurde. Das funktioniert soweit. Jetzt habe ich immer wieder das Problem, dass die Zellformate nicht übernommen werden. Ich habe schon vieles versucht komme aber nicht weiter.
Wo wird der Code:
"PasteSpecial Paste:=xlPasteFormats"
eingefügt, damit die Formate des Blankoblattes übernommen werden?
With Zieltab
If j = 1 Then
.Paste Destination:=.Range("A" & j)
end if
End With
Danke Anja