Problem: per VBA Format übertragen

Question

Hallo zusammen!

Kann mir mal bitte jemand weiterhelfen?

Der folgende Code Ausschnitt kopiert zwei Spalten und überträgt
dann deren Format (also ich meine die Formatierungen) auf einen
variablen Bereich.

Grundsätzlich geht auch alles wunderbar. Das Problem ist jedoch,
dass die Spalten, die kopiert werden, später mal ausgeblendet sein
sollen. WENN sie dann ausgeblendet sind, dann wird leider auch die
"Formateigenschaft ausgeblendet" übertragen - das soll natürlich
nicht sein...

Wisst ihr was ich meine?!
Also der Bereich, auf den die Formatübertragung angewandt wird,
der wird dann auch ausgeblendet...

Hier der Code:

Sheets("Methadon").Columns("DX:DY").Copy
Sheets("Methadon").Range(Cells(1, 5), Cells(1,
x)).EntireColumn.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Kann mir jemand sagen, was ich ändern muss?!
Schon mal vielen Dank!

Answer 1

Hallo,

ergänze den Code einfach um die folgende Zeile:

If Sheets("Methadon").Range(Cells(1, 5), Cells(1, x)).EntireColumn.Hidden = True Then Sheets("Methadon").Range(Cells(1, 5), Cells(1, x)).EntireColumn.Hidden = False

Damit werden eventuell ausgeblendete Spalten im Einfügebereich wieder eingeblendet.

Gruß

M.O.

Answer 2

Erstmal Danke M.O. !

Nun, das geht leider nicht :-)
Denn im Einfügebereich sind in der Tat Spalten ausgeblendet, die auch ausgeblendet bleiben sollen :-)